Supplemental file s2
In this Rmarkdown we provide the following workflow:
Objective 1. To investigate the types of pesticides and pesticide classes, both in terms of chemical structure and target organism, that have been used in studies examining the effects of pesticide exposure on non-larval zebrafish behaviour.
Objective 2. To investigate the study designs employed to assess the effects of pesticide exposure on the behaviour of non-larval zebrafish.
Objective 3. To identify the specific behaviours that have been investigated in pesticide exposure studies that use non-larval zebrafish as a model.
Objective 4. To assess the research outputs of different countries and investigate the level of collaboration between authors amongst different countries.
Load packages and data
Load packages
rm(list = ls())
knitr::opts_chunk$set(echo = TRUE)
pacman::p_load(tidyverse,
here,
stringr,
knitr,
formatR,
forcats,
ggplot2,
hrbrthemes, # for ggplot2
patchwork, # for ggplot2
bibliometrix,
igraph,
tidyr,
circlize,
cowplot,
mapproj)Load data
All extracted data is stored in five separate .csv files representing different aspects of the data (extracted via structured predefined Google Forms - one per table).
Bibliographic data records are exported from Scopus (including cited references field) in .bib format and locally saved as scopus.bib.
# Load data set containing background information on each study
bib <- read_csv(here("data", "zf_sm_bibliometrics.csv"), skip = 0) # 83 rows 9 columns ## Rows: 83 Columns: 9
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (9): Timestamp, initials_extractor, study_id, paper_title, author_year, ...
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.# Load data set containing information on the design of each study
sd <- read_csv(here("data","zf_sm_study_details.csv"), skip = 0) # 83 rows 10 columns ## New names:
## Rows: 83 Columns: 10
## ── Column specification
## ──────────────────────────────────────────────────────── Delimiter: "," chr
## (10): ...1, study_id, study_type, life_stage_exposure, life_stage_behavi...
## ℹ Use `spec()` to retrieve the full column specification for this data. ℹ
## Specify the column types or set `show_col_types = FALSE` to quiet this message.
## • `` -> `...1`
## • `` -> `...9`
## • `` -> `...10`# Load data set containing details of each pesticide used in each exposure studies
pd <- read_csv(here("data", "zf_sm_pesticide_details.csv"), skip = 0) # 83 rows 9 columns ## Rows: 83 Columns: 9
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (8): Timestamp, study_id, pesticide_target_class, pesticide_chemical_cla...
## lgl (1): pesticide_comment
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.# Load data set containing details of dosage and duration of pesticide exposure
pdo <-read_csv(here("data","zf_sm_pesticide_dosage.csv"), skip = 0) # 108 rows 12 columns ## Rows: 108 Columns: 12
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (12): Timestamp, study_id, pesticide_investigated, route, dosage_number,...
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.# Load data set containing details of behaviorus measured in response to pesticide exposure
bd <- read_csv(here("data", "zf_sm_behaviour_details.csv"), skip = 0) # 83 rows 13 columns ## Rows: 83 Columns: 13
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (11): Timestamp, study_id, behavioural_class, behaviour_social, behaviou...
## lgl (2): behaviour_courtship, behaviour_parental_care
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.# Load bibliometric information extracted from scopus
bib_sco <- convert2df(here("data","scopus.bib"), dbsource = "scopus", format = "bibtex") # 79 rows 38 columns ##
## Converting your scopus collection into a bibliographic dataframe
##
## Done!
##
##
## Generating affiliation field tag AU_UN from C1: Done!Objective 0: General literature characteristics
fig 2- study time time trends
# Count the number of articles by year
fig2 <- bib %>%
count(publication_year) %>%
# Create a bar chart with publication year on x-axis and count on y-axis
ggplot(aes(x = publication_year, y = n)) +
# Customize the appearance of the bars
geom_bar(stat = "identity", fill = "#5F85AE", color = "white", alpha = 0.8, position = position_dodge(0.9)) +
# Add labels to the bars
geom_text(aes(label = n), position = position_stack(vjust = 0.5), fontface = "bold", color = "white", size = 5, hjust = 0.5) +
# Customize the appearance of the plot
theme_minimal() +
labs(x = "Year", y = "Article Count") +
theme(legend.position = "none",
axis.title.x = element_text(size = 15, face = "bold"),
axis.title.y = element_text(size = 15, face = "bold"),
axis.text.x = element_text(angle = 45, hjust = 1, size = 15),
axis.text.y = element_text(size = 15),
panel.grid.major.y = element_line(color = "gray"),
panel.grid.minor.y = element_blank(),
plot.title = element_text(size = 16, face = "bold"))
fig2
# ggsave(here("figures", "fig2_time_trends.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 300, device = cairo_pdf)Objective 1. To investigate the types of pesticides and pesticide classes, both in terms of chemical and target, that have been used in experiments examining the effects of pesticide exposure on zebrafish behaviour.
fig3a - plot for total of individual pesticides used in pesticide exposure studies
# Separate rows with multiple pesticides, count their occurrence, and combined all pesticide that occured once as "other"
total_pesticide_count <- pd %>%
separate_rows(pesticide_investigated, sep = ", ") %>%
count(pesticide_investigated) %>%
mutate(pesticide_investigated = ifelse(n == 1, "other", as.character(pesticide_investigated))) %>%
# "other" includes tribotyltin, terbutylazine, sodium fluride, pyrimethonil, pyraclostrobin, propiconazole, prochloraz, parathion, paclobutazol, monocotophos, methylbenzoate, methylbenzoate, methomyl, mecroprop, linuron, endosulfan, diuron, difenoconazole, dicamba, cyprodinil, chlorothalonil, carbofuran, carbaryl, broflanilide and boscalid.
group_by(pesticide_investigated) %>%
summarise(n = sum(n))
# Calculate pesticide count as a percentage
pesticide_pct <- total_pesticide_count %>%
mutate(proportion = n/sum(total_pesticide_count$n),
percentage = proportion*100)
# Create a bar chart with the count of pesticides on the x-axis and pesticides on the y-axis
fig3a <- ggplot(pesticide_pct, aes(x = reorder(pesticide_investigated, n), y = percentage)) +
# Customize the appearance of the bars
geom_bar(stat = "identity", fill = "#5F85AE", color = "white", alpha = 0.8, position = position_dodge(0.9)) +
# Add labels to the bars for absolute count
geom_text(aes(label = n), position = position_stack(vjust = 0.5), color = "white", fontface = "bold", size = 5) +
# Add labels to the bars for percentage
geom_text(data = pesticide_pct, aes(label = paste0(round(percentage,1), "%")),
position = position_dodge(width = 0.9), hjust = -0.2, size = 5, color = "black", fontface = "bold") +
# Customize the appearance of the plot
labs(x = "Pesticide", y = "Percentage") +
theme_minimal() +
theme(panel.grid.major.y = element_blank(),
axis.line.y = element_blank(),
axis.ticks.y = element_blank(),
axis.title.x = element_text(size = 15),
axis.title.y = element_text(size = 15),
axis.text.x = element_text(size = 15),
axis.text.y = element_text(size = 15),
axis.title = element_text(size = 15),
plot.title = element_blank()) +
coord_flip() +
ylim(0,30)
fig3a
# ggsave(here("figures", "fig3a_pesticide_count.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 300, device = cairo_pdf)fig3b - total for each pesticide target class used in pesticide exposure studies
# Separate rows with multiple pesticides and count their occurrence
total_target_class_count <- pd %>%
separate_rows(pesticide_target_class, sep = ",\\s*") %>%
count(pesticide_target_class)
# Calculate target class count as a percentage
target_class_pct <- total_target_class_count %>%
mutate(proportion = n/sum(total_target_class_count$n),
percentage = proportion*100)
# Create a bar chart with the count of target classes on the x-axis and pesticides target class on the y-axis
fig3b <- ggplot(target_class_pct, aes(reorder(pesticide_target_class, n), y = percentage)) +
# Customize the appearance of the bars
geom_bar(stat = "identity", fill = "#5F85AE", color = "white", alpha = 0.8, position = position_dodge(0.9)) +
# Add labels to the bars for absolute count
geom_text(aes(label = n), position = position_stack(vjust = 0.5), color = "white", fontface = "bold", size = 7) +
# Add labels to the bars for percentage
geom_text(data = target_class_pct, aes(label = paste0(round(percentage, 1), "%")),
position = position_dodge(width = 0.9), hjust = -0.2, size = 7, color = "black", fontface = "bold") +
# Customize the appearance of the plot
labs(x = "Pesticide Target Class", y = "Percentage") +
theme_minimal() +
theme(panel.grid.major.y = element_blank(),
axis.line.y = element_blank(),
axis.ticks.y = element_blank(),
axis.text.x = element_text(size = 20),
axis.text.y = element_text(size = 20),
axis.title.x = element_text(size = 20),
axis.title.y = element_text(size = 20),
plot.title = element_blank()) +
coord_flip() +
ylim(0, 80)
fig3b
# ggsave(here("figures", "fig3b_pesticide_target_count.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 300, device = cairo_pdf)fig3c - total for chemical class
# Separate rows with multiple pesticides and count their occurrence, then filter for cases with more than one occurrence
total_chemical_class_count <- pd %>%
separate_rows(pesticide_chemical_class, sep = ",\\s*") %>%
count(pesticide_chemical_class) %>%
mutate(pesticide_chemical_class = ifelse(n == 1, "other", as.character(pesticide_chemical_class))) %>%
# "other" includes tribotyltin, terbutylazine, sodium fluride, pyrimethonil, pyraclostrobin, propiconazole, prochloraz, parathion, paclobutazol, monocotophos, methylbenzoate, methylbenzoate, methomyl, mecroprop, linuron, endosulfan, diuron, difenoconazole, dicamba, cyprodinil, chlorothalonil, carbofuran, carbaryl, broflanilide and boscalid.
group_by(pesticide_chemical_class) %>%
summarise(n = sum(n))
# Calculate target class count as a percentage
chemical_class_pct <- total_chemical_class_count %>%
mutate(proportion = n/sum(total_chemical_class_count$n),
percentage = proportion*100)
# Create a bar chart with the count of chemical classes on the x-axis and pesticides chemical class on the y-axis
fig3c <- ggplot(chemical_class_pct, aes(x = reorder(pesticide_chemical_class,n), y = percentage)) +
# Customize the appearance of the bars
geom_bar(stat = "identity", fill = "#5F85AE", color = "white", alpha = 0.8, position = position_dodge(0.9)) +
# Add labels to the bars
geom_text(aes(label = n), position = position_stack(vjust = 0.5), color = "white", fontface = "bold", size = 5) +
# Add labels to the bars for percentage
geom_text(data = chemical_class_pct, aes(label = paste0(round(percentage,1), "%")),
position = position_dodge(width = 0.9), hjust = -0.2, size = 5, color = "black", fontface = "bold") +
# Customize the appearance of the plot
labs(x = "Pesticide Chemical Class", y = "Percentage") +
theme_minimal() +
theme(panel.grid.major.y = element_blank(),
axis.line.y = element_blank(),
axis.ticks.y = element_blank(),
axis.text.x = element_text(size = 20),
axis.text.y = element_text(size = 15),
axis.title.x = element_text(size = 20),
axis.title.y = element_text(size = 20),
plot.title = element_blank()) +
coord_flip() +
ylim(0, 40)
fig3c
# ggsave(here("figures", "fig3c_pesticide_chemical_count.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 300, device = cairo_pdf)##fig3 combined
# Combine three plots into a single plot using a grid layout
fig3 <- ((fig3a) | (fig3b / fig3c) + plot_annotation(tag_levels = "A"))
fig3
#ggsave(here("figures", "fig3_pesticide_count_combined.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 300, device = cairo_pdf)Objective 2. To investigate pesticide exposure study designs such as concentration and duration of exposure, life stages of zebrafish used in each study and the sample sizes used.
figs3 - total route of exposure
# Count the total occurrence of each route in the data set
total_route_count <- pdo %>%
count(route)
# Count the proportion and percentage of each route in the data set
route_pct <- pdo %>%
count(route) %>%
mutate(proportion = n/sum(total_route_count$n),
percentage = proportion*100)
# Create a bar chart with the percentage of pesticides by route of exposure on the x-axis and the routes of exposure on the y-axis
figs3 <- ggplot(route_pct, aes(x = reorder(route, percentage), y = percentage)) +
# Customize the appearance of the bars
geom_bar(stat = "identity", fill = "#5F85AE", color = "white", alpha = 0.8, position = position_dodge(0.9)) +
# Add absolute count to bars
geom_text(aes(label = n), position = position_stack(vjust = 0.5), color = "white", fontface = "bold", size = 5) +
# Add percentage label to bars
geom_text(aes(label = paste0(round(percentage, 1), "%")), hjust = -0.2, vjust = 0.5, size = 5, fontface = "bold") +
# Customize the appearance of the plot
labs(x = "Route of Exposure", y = "Percentage") +
theme_minimal() +
theme(panel.grid.major.y = element_blank(),
axis.text.x = element_text(size = 15),
axis.text.y = element_text(size = 15),
axis.title.x = element_text(size = 15),
axis.title.y = element_text(size = 15),
plot.title = element_blank()) +
coord_flip() +
ylim(0, 100)
figs3
# ggsave(here("figures", "figs3_pesticide_chemical_count.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 300, device = cairo_pdf)Objective 2. To investigate the study designs employed to assess the effects of pesticide exposure on the behaviour of non-larval zebrafish.
making dosages consistent for dosage comparisons
pdo <- pdo %>%
# Remove rows with NA values
filter(!is.na(dosage_lowest)) %>%
# Convert dosage_lowest to numeric and dosage_lowest_unit to character
mutate(dosage_lowest = as.numeric(dosage_lowest),
dosage_lowest_unit = as.character(dosage_lowest_unit),
# Standardize dosage_unit_consistent based on dosage_lowest_unit
dosage_unit_consistent = case_when(
dosage_lowest_unit == "mg/L" ~ "ug/L",
dosage_lowest_unit == "ng/L" ~ "ug/L",
dosage_lowest_unit == "g/L" ~ "ug/L",
dosage_lowest_unit == "ppb" ~ "ug/L",
dosage_lowest_unit == "ppm" ~ "ug/L",
TRUE ~ dosage_lowest_unit),
# Convert dosage_lowest to ug/L based on dosage_lowest_unit
dosage_lowest_convert_ugL = case_when(
dosage_lowest_unit == "mg/L" ~ dosage_lowest * 1000,
dosage_lowest_unit == "ng/L" ~ dosage_lowest / 1000,
dosage_lowest_unit == "g/L" ~ dosage_lowest/1000000,
dosage_lowest_unit == "ppb" ~ dosage_lowest * 1000,
dosage_lowest_unit == "ppm" ~ dosage_lowest/1000,
TRUE ~ dosage_lowest),
# Convert dosage_highest to numeric and dosage_highest_unit to character
dosage_highest = as.numeric(dosage_highest),
# Convert dosage_highest to ug/L based on dosage_highest_unit
dosage_highest_convert_ugL = case_when(
dosage_highest_unit == "mg/L" ~ dosage_highest * 1000,
dosage_highest_unit == "ng/L" ~ dosage_highest / 1000,
dosage_highest_unit == "g/L" ~ dosage_highest/1000000,
dosage_highest_unit == "ppb" ~ dosage_highest * 1000,
dosage_highest_unit == "ppm" ~ dosage_highest/1000,
TRUE ~ dosage_highest))## Warning: There were 2 warnings in `mutate()`.
## The first warning was:
## ℹ In argument: `dosage_lowest = as.numeric(dosage_lowest)`.
## Caused by warning:
## ! NAs introduced by coercion
## ℹ Run ]8;;ide:run:dplyr::last_dplyr_warnings()dplyr::last_dplyr_warnings()]8;; to see the 1 remaining warning.fig4 - comparison of lowest and highest dosages in waterbourne exposure methods
# Pivot the dataset to a longer format, separating out the dosage type (lowest or highest) and value into separate columns
pdo_waterbourne <- pdo %>%
pivot_longer(cols = c(dosage_lowest, dosage_highest),
names_to = "dosage_type",
values_to = "dosage_value") %>%
# Filter for waterborne routes with consistent dosage units and a dosage number greater than 1
filter(route == "waterbourne", dosage_unit_consistent == "ug/L",
dosage_number > 1) %>%
# Rename the dosage type column for better labeling in the plot
mutate(dosage_type = if_else(dosage_type == "dosage_lowest", "Lowest Dosage Exposed", "Highest Dosage Exposed"))
# Create the plot with dosage type (i.e., lowest or highest dose) on the x-axis and dosage value on the y-axis
fig4 <- ggplot(pdo_waterbourne, aes(x = dosage_type, y = log(dosage_value))) +
# Add a violin plot
geom_violin(fill = "#5F85AE", alpha =0.2, color = NA, trim = FALSE) +
# Add a boxplot
geom_boxplot(width = 0.05, fill = "white", color = "#5F85AE", outlier.shape = NA) +
# Add jittered points .
geom_jitter(width = 0.1, height = 0.05, color = "#5F85AE", alpha = 0.8) +
# Add axis and plot labels
labs(title = "Waterborne Exposures by Dosage in ug/L", x = "Waterborne Exposure", y = "log(Dosage (ug/L))") +
# Customize plot theme
theme_minimal() +
theme(panel.grid.major.y = element_blank(),
axis.line.y = element_blank(),
axis.ticks.y = element_blank(),
axis.text.x = element_text(size = 15),
axis.text.y = element_text(size = 15),
axis.title.x = element_text(size = 15),
axis.title.y = element_text(size = 15),
plot.title = element_blank())
fig4
ggsave(here("figures", "fig4_pesticide_dosage.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 300, device = cairo_pdf)figs4 - comparison of lowest and highest dosages of waterbourne exposure to deltamethrin
# Pivot the data set to a longer format, separating out the dosage type (lowest or highest) and value into separate columns
pdo_waterbourne_deltamethrin <- pdo %>%
pivot_longer(cols = c(dosage_lowest, dosage_highest),
names_to = "dosage_type",
values_to = "dosage_value") %>%
# Filter for waterborne routes with consistent dosage units and only deltamethrin pesticide investigated
filter(route == "waterbourne", dosage_unit_consistent == "ug/L", pesticide_investigated == "deltamethrin") %>%
# Rename the dosage type column for better labeling in the plot
mutate(dosage_type = if_else(dosage_type == "dosage_lowest", "Lowest Dosage Exposed", "Highest Dosage Exposed"))
# Create the plot with dosage type (i.e., lowest or highest dose) on the x-axis and dosage value on the y-axis
figs4 <- ggplot(pdo_waterbourne_deltamethrin, aes(x = dosage_type, y = log(dosage_value))) +
# Add a violin plot
geom_violin(fill = "#5F85AE", alpha = 0.2, color = NA, trim = FALSE) +
# Add a boxplot
geom_boxplot(width = 0.05, fill = "white", color = "#5F85AE", outlier.shape = NA) +
# Add jittered points
geom_jitter(width = 0.1, height = 0.05, color = "#5F85AE", alpha = 0.5) +
# Add axis and plot labels
labs(title = "Waterborne Exposures of Deltamethrin by Dosage in ug/L", x = "Waterbourne exposure", y = "log(Dosage (ug/L))") +
# Customize plot theme
theme_minimal() +
theme(panel.grid.major.y = element_blank(),
axis.line.y = element_blank(),
axis.ticks.y = element_blank(),
axis.text.x = element_text(size = 15),
axis.text.y = element_text(size = 15, hjust = 1),
axis.title.x = element_text(size = 15),
axis.title.y = element_text(size = 15),
plot.title = element_blank())
# figs4figs5 - comparison of lowest and highest dosages of waterbourne exposure to rotenone
# Pivot the data set to a longer format, separating out the dosage type (lowest or highest) and value into separate columns
pdo_waterbourne_rotenone <- pdo %>%
pivot_longer(cols = c(dosage_lowest, dosage_highest),
names_to = "dosage_type",
values_to = "dosage_value") %>%
# Filter for waterborne routes with consistent dosage units and only rotenone pesticide investigated
filter(route == "waterbourne", dosage_unit_consistent == "ug/L", pesticide_investigated == "rotenone") %>%
# Rename the dosage type column for better labeling in the plot
mutate(dosage_type = if_else(dosage_type == "dosage_lowest", "Lowest Dosage Exposed", "Highest Dosage Exposed"))
# Create the plot with dosage type (i.e., lowest or highest dose) on the x-axis and dosage value on the y-axis
figs5 <- ggplot(pdo_waterbourne_rotenone, aes(x = dosage_type, y = log(dosage_value))) +
# Add a violin plot
geom_violin(fill = "#5F85AE", alpha = 0.3, trim = FALSE, color = NA) +
# Add a boxplot
geom_boxplot(width = 0.05, fill = "white", color = "#5F85AE", outlier.shape = NA) +
# Add jittered points
geom_jitter(width = 0.1, height = 0.05, color = "#5F85AE", alpha = 0.5) +
# Add axis and plot labels
labs(title = "Waterborne Exposures of Rotenone by Dosage in ug/L", x = "Waterbourne exposure", y = "log(Dosage (ug/L))") +
# Customize plot theme
theme_minimal() +
theme(panel.grid.major.y = element_blank(),
axis.line.y = element_blank(),
axis.ticks.y = element_blank(),
axis.text.x = element_text(size = 15),
axis.text.y = element_text(size = 15, hjust = 1),
axis.title.x = element_text(size = 15),
axis.title.y = element_text(size = 15),
plot.title = element_blank())
figs5
figs6 - comparison of lowest and highest dosages of waterbourne exposure atrazine
# Pivot the data set to a longer format, separating out the dosage type (lowest or highest) and value into separate columns
pdo_waterbourne_atrazine <- pdo %>%
pivot_longer(cols = c(dosage_lowest, dosage_highest),
names_to = "dosage_type",
values_to = "dosage_value") %>%
# Filter for waterborne routes with consistent dosage units and only atrazine pesticide investigated
filter(route == "waterbourne", dosage_unit_consistent == "ug/L", pesticide_investigated == "atrazine") %>%
# Rename the dosage type column for better labeling in the plot
mutate(dosage_type = if_else(dosage_type == "dosage_lowest", "Lowest Dosage Exposed", "Highest Dosage Exposed"))
# Create the plot with dosage type (i.e., lowest or highest dose) on the x-axis and dosage value on the y-axis
figs6 <- ggplot(pdo_waterbourne_atrazine, aes(x = dosage_type, y = log(dosage_value))) +
# Add a violin plot
geom_violin(fill = "#5F85AE", alpha = 0.3, trim = FALSE, color = "NA") +
# Add a boxplot
geom_boxplot(width = 0.05, fill = "white", color = "#5F85AE", outlier.shape = NA) +
# Add jittered points
geom_jitter(width = 0.1, height = 0.05, color = "#5F85AE", alpha = 0.5) +
# Add axis and plot labels
labs(title = "Waterborne Exposures of Atrazine by Dosage in ug/L", x = "Waterborne exposure", y = "log(Dosage (ug/L))") +
# Customize plot theme
theme_minimal() +
theme(panel.grid.major.y = element_blank(),
axis.line.y = element_blank(),
axis.ticks.y = element_blank(),
axis.text.x = element_text(size = 15),
axis.text.y = element_text(size = 15, hjust = 1),
axis.title.x = element_text(size = 15),
axis.title.y = element_text(size = 15),
plot.title = element_blank())
figs6
figs7 - comparison to lowest and highest dosages of waterbourne exposure to glyphosate
# Pivot the data set to a longer format, separating out the dosage type (lowest or highest) and value into separate columns
pdo_waterbourne_glyphosate <- pdo %>%
pivot_longer(cols = c(dosage_lowest, dosage_highest),
names_to = "dosage_type",
values_to = "dosage_value") %>%
# Filter for waterborne routes with consistent dosage units and only glyphosate pesticide investigated
filter(route == "waterbourne", dosage_unit_consistent == "ug/L", pesticide_investigated == "glyphosate") %>%
# Rename the dosage type column for better labeling in the plot
mutate(dosage_type = if_else(dosage_type == "dosage_lowest", "Lowest Dosage Exposed", "Highest Dosage Exposed"))
# Create the plot with dosage type (i.e., lowest or highest dose) on the x-axis and dosage value on the y-axis
figs7 <- ggplot(pdo_waterbourne_glyphosate, aes(x = dosage_type, y = log(dosage_value))) +
# Add a violin plot
geom_violin(fill = "#5F85AE", alpha = 0.3, trim = FALSE, color = NA) +
# Add a boxplot
geom_boxplot(width = 0.05, fill = "white", color = "#5F85AE", outlier.shape = NA) +
# Add jittered points
geom_jitter(width = 0.1, height = 0.05, color = "#5F85AE", alpha = 0.5) +
# Add axis and plot labels
labs(title = "Waterborne Exposures of Glyphosate by Dosage in ug/L", x = "Waterbourne exposure", y = "log(Dosage (ug/L))") +
# Customize plot theme
theme_minimal() +
theme(panel.grid.major.y = element_blank(),
axis.line.y = element_blank(),
axis.ticks.y = element_blank(),
axis.text.x = element_text(size = 15),
axis.text.y = element_text(size = 15, hjust = 1),
axis.title.x = element_text(size = 15),
axis.title.y = element_text(size = 15),
plot.title = element_blank())
figs7
figs8 - comparison to lowest and highest dosages of waterbourne exposure to chlopyrifo
# Pivot the data set to a longer format, separating out the dosage type (lowest or highest) and value into separate columns
pdo_waterbourne_chloropyrifo <- pdo %>%
pivot_longer(cols = c(dosage_lowest, dosage_highest),
names_to = "dosage_type",
values_to = "dosage_value") %>%
# Filter for waterborne routes with consistent dosage units and only glyphosate pesticide investigated
filter(route == "waterbourne", dosage_unit_consistent == "ug/L", pesticide_investigated == "chloropyrifo") %>%
# Rename the dosage type column for better labeling in the plot
mutate(dosage_type = if_else(dosage_type == "dosage_lowest", "Lowest Dosage Exposed", "Highest Dosage Exposed"))
# Create the plot with dosage type (i.e., lowest or highest dose) on the x-axis and dosage value on the y-axis
figs8 <- ggplot(pdo_waterbourne_chloropyrifo, aes(x = dosage_type, y = log(dosage_value))) +
# Add a violin plot
geom_violin(fill = "#5F85AE", alpha = 0.3, trim = FALSE, color = NA) +
# Add a boxplot
geom_boxplot(width = 0.05, fill = "white", color = "#5F85AE", outlier.shape = NA) +
# Add jittered points
geom_jitter(width = 0.1, height = 0.05, color = "#5F85AE", alpha = 0.5) +
# Add axis and plot labels
labs(title = "Waterborne Exposures of Chloropyrifos by Dosage in ug/L", x = "Waterbourne exposure", y = "log(Dosage (ug/L))") +
# Customize plot theme
theme_minimal() +
theme(panel.grid.major.y = element_blank(),
axis.line.y = element_blank(),
axis.ticks.y = element_blank(),
axis.text.x = element_text(size = 15),
axis.text.y = element_text(size = 15, hjust = 1),
axis.title.x = element_text(size = 15),
axis.title.y = element_text(size = 15),
plot.title = element_blank())
figs8
figx - durations of waterbourne exposure
pdo <- pdo %>%
filter(!is.na(duration)) %>%
# Convert duration to numeric and duration_unit to character
mutate(duration = as.numeric(duration),
duration_unit = as.character(duration_unit),
# Standardize duration_unit_consistent based on dosage_unit
duration_unit_consistent = case_when(
duration_unit == "minutes" ~ "hours",
duration_unit == "days" ~ "hours",
duration_unit == "weeks" ~ "hours",
TRUE ~ duration_unit),
# Convert duration to hours based on duration_unit
duration_convert = case_when(
duration_unit == "minutes" ~ duration* 60,
duration_unit == "days" ~ duration/24,
duration_unit == "weeks" ~ duration/168,
TRUE ~ duration)) %>%
filter(route == "waterbourne")## Warning: There was 1 warning in `mutate()`.
## ℹ In argument: `duration = as.numeric(duration)`.
## Caused by warning:
## ! NAs introduced by coercionfigx <- ggplot(pdo, aes(x = route , y = log(duration))) +
# Add a violin plot
geom_violin(fill = "#5F85AE", alpha =0.2, color = NA, trim = FALSE) +
# Add a boxplot
geom_boxplot(width = 0.05, fill = "white", color = "#5F85AE", outlier.shape = NA) +
# Add jittered points
geom_jitter(width = 0.1, height = 0.05, color = "#5F85AE", alpha = 0.8) +
# Add axis and plot labels
labs(x = "Route ", y = "log(duration (hours))") +
# Customize plot theme
theme_minimal() +
theme(panel.grid.major.y = element_blank(),
axis.line.y = element_blank(),
axis.ticks.y = element_blank(),
axis.text.x = element_text(size = 15),
axis.text.y = element_text(size = 15),
axis.title.x = element_text(size = 15),
axis.title.y = element_text(size = 15),
plot.title = element_blank())
figx## Warning: Removed 7 rows containing non-finite values (`stat_ydensity()`).## Warning: Removed 7 rows containing non-finite values (`stat_boxplot()`).## Warning: Removed 7 rows containing missing values (`geom_point()`).
figs9 - total lifestage of exposure completed as a percentage
# Calculate total count for each category
total_count_lse <- sd %>% count(life_stage_exposure)
# Calculate proportion and percentage for each category
life_stage_pct <- sd %>%
separate_rows(life_stage_exposure, sep = ",\\s*") %>%
count(life_stage_exposure) %>%
mutate(proportion = n/sum(total_count_lse$n),
percentage = proportion*100)
# Create a bar chart with the count on the x-axis and life stage of exposure on the y-axis
figs9 <- ggplot(life_stage_pct, aes(x = reorder(life_stage_exposure, percentage), y = percentage)) +
# Customize the appearance of the bars
geom_bar(stat = "identity", fill = "#5F85AE", color = "white", alpha = 0.8, position = position_dodge(0.9)) +
# Add labels to the bars for percentage
geom_text(aes(label = paste0(round(percentage, 1), "%")), hjust = -0.2, vjust = 0.5, size = 5, fontface = "bold") +
# Add absolute count to bars
geom_text(aes(label = n), position = position_stack(vjust = 0.5), color = "white", fontface = "bold", size = 5) +
# Add axis and plot labels
labs( x = "Life Stage of Exposure", y = "Percentage", fontsize = 14) +
# Customize the plot theme
theme_minimal() +
theme(panel.grid.major.y = element_blank(),
axis.line.y = element_blank(),
axis.ticks.y = element_blank(),
axis.text.x = element_text(size = 15),
axis.text.y = element_text(size = 15, hjust = 1),
axis.title.x = element_text(size = 15),
axis.title.y = element_text(size = 15),
plot.title = element_blank()) +
coord_flip() +
ylim(0, 100)
figs9
figs10 - total lifestage of behaviour completed as a percentage
# Calculate total count for each category
total_count_lsb <- sd %>% count(life_stage_behaviour)
# Calculate proportion and percentage for each category
life_stage_pct <- sd %>%
separate_rows(life_stage_behaviour, sep = ",\\s*") %>%
count(life_stage_behaviour) %>%
mutate( proportion = n / sum(total_count_lsb$n),
percentage = proportion * 100)
# Create a bar chart with the count on the x-axis and life stage of behavior on the y-axis
figs10 <- ggplot(life_stage_pct, aes(x = reorder(life_stage_behaviour, percentage), y = percentage)) +
# Customize the appearance of the bars
geom_bar(stat = "identity", fill = "#5F85AE", color = "white", alpha = 0.8,position = position_dodge(0.9)) +
# Add labels to the bars for percentage
geom_text(aes(label = paste0(round(percentage, 1), "%")), hjust = -0.2, vjust = 0.5, size = 5, fontface = "bold") +
# Add absolute count to bars
geom_text(aes(label = n), position = position_stack(vjust = 0.5), color = "white",fontface = "bold", size = 5) +
# Add axis and plot labels
labs(x = "Life Stage of Behavior", y = "Percentage", fontsize = 14) +
# Customize the plot theme
theme_minimal() +
theme(panel.grid.major.y = element_blank(),
axis.line.y = element_blank(),
axis.ticks.y = element_blank(),
axis.text.x = element_text(size = 15),
axis.text.y = element_text(size = 15, hjust = 1),
axis.title.x = element_text(size = 15),
axis.title.y = element_text(size = 15),
plot.title = element_blank()) +
coord_flip() +
ylim(0, 100)
figs10
figs11 - total sexes exposed completed as a percentage
# Calculate total count for each category
total_sex_count <- sd %>% count(sex)
# Calculate proportion and percentage for each category
sex_pct <- sd %>%
count(sex) %>%
mutate(proportion = n/sum(total_sex_count$n),
percentage = proportion*100)
# Create a bar chart with the count on the x-axis and behaviorual class on the y-axis
figs11 <- ggplot(sex_pct, aes(x = reorder(sex, percentage), y = percentage)) +
# Customize the appearance of the bars
geom_bar(stat = "identity", fill = "#5F85AE", color = "white", alpha = 0.8, position = position_dodge(0.9)) +
# Add labels to the bars for percentage
geom_text(aes(label = paste0(round(percentage, 1), "%")), hjust = -0.2, vjust = 0.5, size = 5, fontface = "bold") +
# Add absolute count to bars
geom_text(aes(label = n), position = position_stack(vjust = 0.5), color = "white", fontface = "bold", size = 5) +
# Add axis and plot labels
labs(x = "Sex of Exposure", y = "Percentage") +
# Customize the plot theme
theme_minimal() +
theme(panel.grid.major.y = element_blank(),
axis.line.y = element_blank(),
axis.ticks.y = element_blank(),
axis.text.x = element_text(size = 15),
axis.text.y = element_text(size = 15, hjust = 1),
axis.title.x = element_text(size = 15),
axis.title.y = element_text(size = 15),
plot.title = element_blank()) +
coord_flip() +
ylim(0, 100)
figs11
Objective 3. To identify the specific behaviours that have been investigated in pesticide exposure experiments that use zebrafish as a model.
fig5 - total number of studies investigating each broad behaviour class
# Calculate total count for each category
total_behaviour_class_count <- bd %>%
separate_rows(behavioural_class, sep = ",\\s*") %>%
count(behavioural_class)
# Calculate proportion and percentage for each category
behav_class_pct <- total_behaviour_class_count %>%
mutate(proportion = n/sum(total_behaviour_class_count$n),
percentage = proportion*100)
# Create a bar chart with the count on the x-axis and Behavioural class assay on the y-axis
fig5 <- ggplot(behav_class_pct, aes(x = reorder(behavioural_class, percentage), y = percentage)) +
# Customize the appearance of the bars
geom_bar(stat = "identity", fill = "#5F85AE", color = "white", alpha = 0.8, position = position_dodge(0.9)) +
# Add labels to the bars for percentage
geom_text(aes(label = paste0(round(percentage, 1), "%")), hjust = -0.2, vjust = 0.5, size = 5, fontface = "bold", color = "black") +
# Add labels to the bars for absolute count
geom_text(aes(label = n), position = position_stack(vjust = 0.5), color = "white", size = 5, hjust = 0.5, fontface = "bold") +
# Add axis and plot labels
labs(x = "Behavioural Class", y = "Percentage") +
# Customize the plot theme
theme_minimal() +
theme(panel.grid.major.y = element_blank(),
axis.line.y = element_blank(),
axis.ticks.y = element_blank(),
axis.text.x = element_text(size = 15),
axis.text.y = element_text(size = 15, hjust = 1),
axis.title.x = element_text(size = 15),
axis.title.y = element_text(size = 15),
plot.title = element_blank()) +
coord_flip() +
ylim(0, 50)
fig5
figs12 - total number of studies investigating each behavioural assay of behaviour activity
# Calculate count for each assay in behavioral activity
total_behaviour_activity_count <- bd %>%
separate_rows(behaviour_activity, sep = ",\\s*") %>%
count(behaviour_activity) %>%
na.omit()
# Calculate proportion and percentage for each category
behav_activity_pct <- total_behaviour_activity_count %>%
mutate(proportion = n/sum(total_behaviour_activity_count$n),
percentage = proportion*100)
# Create a bar chart with the count on the x-axis and Behavioural activity assay on the y-axis
figs12 <- ggplot(behav_activity_pct, aes(x = reorder(behaviour_activity, n), y = percentage)) +
# Customize the appearance of the bars
geom_bar(stat = "identity", fill = "#5F85AE", color = "white", alpha = 0.8, position = position_dodge(0.9)) +
# Add labels to the bars for percentage
geom_text(aes(label = paste0(round(percentage, 1), "%")), hjust = -0.2, vjust = 0.5, size = 5, fontface = "bold", color = "black") +
# Add labels to the bars for absolute count
geom_text(aes(label = n), position = position_stack(vjust = 0.5), color = "white", size = 5, hjust = 0.5, fontface = "bold") +
# Add axis and plot labels
labs(x = "Activity Assay", y = "Percentage") +
# Customize the plot theme
theme_minimal() +
theme(panel.grid.major.y = element_blank(),
axis.line.y = element_blank(),
axis.ticks.y = element_blank(),
axis.text.x = element_text(size = 15),
axis.text.y = element_text(size = 15, hjust = 1),
axis.title.x = element_text(size = 15),
axis.title.y = element_text(size = 15),
plot.title = element_blank()) +
coord_flip() +
ylim(0, 100)
figs12
figs13 - total number of studies investigating each behavioural assay of behaviour_aggression
# Calculate count for each assay in aggression behavior
total_behaviour_aggression_count <- bd %>%
separate_rows(behaviour_aggression, sep = ",\\s*") %>%
count(behaviour_aggression) %>%
na.omit()
# Calculate proportion and percentage for each category
behav_aggression_pct <- total_behaviour_aggression_count %>%
mutate(proportion = n/sum(total_behaviour_aggression_count$n),
percentage = proportion*100)
# Create a bar chart with the count on the x-axis and aggression behavior assay on the y-axis
figs13 <- ggplot(behav_aggression_pct, aes(x = reorder(behaviour_aggression, n), y = percentage)) +
# Customize the appearance of the bars
geom_bar(stat = "identity", fill = "#5F85AE", color = "white", alpha = 0.8, position = position_dodge(0.9)) +
# Add labels to the bars for percentage
geom_text(aes(label = paste0(round(percentage, 1), "%")), hjust = -0.2, vjust = 0.5, size = 5, fontface = "bold", color = "black") +
# Add labels to the bars for absolute count
geom_text(aes(label = n), position = position_stack(vjust = 0.5), color = "white", size = 5, hjust = 0.5, fontface = "bold") +
# Add axis and plot labels
labs(x = "Aggression Behavior Assay", y = "Percentage") +
# Customize the plot theme
theme_minimal() +
theme(panel.grid.major.y = element_blank(),
axis.line.y = element_blank(),
axis.ticks.y = element_blank(),
axis.text.x = element_text(size = 15),
axis.text.y = element_text(size = 15, hjust = 1),
axis.title.x = element_text(size = 15),
axis.title.y = element_text(size = 15),
plot.title = element_blank()) +
coord_flip() +
ylim(0, 120)
figs13
figs14 - total number of studies investigating each behavioural assay of behavioural_sociality
# Calculate count for each assay in social behavior
total_behaviour_sociality_count <- bd %>%
separate_rows(behaviour_sociality, sep = ",\\s*") %>%
count(behaviour_sociality) %>%
na.omit()
# Calculate proportion and percentage for each category
behav_sociality_pct <- total_behaviour_sociality_count %>%
mutate(proportion = n/sum(total_behaviour_sociality_count$n),
percentage = proportion*100)
# Create a bar chart with the count on the x-axis and social behavior assay on the y-axis
figs14 <- ggplot(behav_sociality_pct, aes(x = reorder(behaviour_sociality, n), y = percentage)) +
# Customize the appearance of the bars
geom_bar(stat = "identity", fill = "#5F85AE", color = "white", alpha = 0.8, position = position_dodge(0.9)) +
# Add labels to the bars for percentage
geom_text(aes(label = paste0(round(percentage, 1), "%")), hjust = -0.2, vjust = 0.5, size = 5, fontface = "bold", color = "black") +
# Add labels to the bars for absolute count
geom_text(aes(label = n), position = position_stack(vjust = 0.5), color = "white", size = 5, hjust = 0.5, fontface = "bold") +
# Add axis and plot labels
labs(x = "Social Behavior Assay", y = "Percentage") +
# Customize the plot theme
theme_minimal() +
theme(panel.grid.major.y = element_blank(),
axis.line.y = element_blank(),
axis.ticks.y = element_blank(),
axis.text.x = element_text(size = 15),
axis.text.y = element_text(size = 15, hjust = 1),
axis.title.x = element_text(size = 15),
axis.title.y = element_text(size = 15),
plot.title = element_blank()) +
coord_flip() +
ylim(0, 100)
figs14
figs15 - total number of studies investigating each behavioural assay of behavioural_foraging
# Calculate count for each assay in foraging behavior
total_behaviour_foraging_count <- bd %>%
separate_rows(behaviour_foraging, sep = ",\\s*") %>%
count(behaviour_foraging) %>%
na.omit()
# Calculate proportion and percentage for each category
behav_foraging_pct <- total_behaviour_foraging_count %>%
mutate(proportion = n/sum(total_behaviour_foraging_count$n),
percentage = proportion*100)
# Create a bar chart with the count on the x-axis and foraging behavior assay on the y-axis
figs15 <- ggplot(behav_foraging_pct, aes(x = reorder(behaviour_foraging, n), y = percentage)) +
# Customize the appearance of the bars
geom_bar(stat = "identity", fill = "#5F85AE", color = "white", alpha = 0.8, position = position_dodge(0.9)) +
# Add labels to the bars for percentage
geom_text(aes(label = paste0(round(percentage, 1), "%")), hjust = -0.2, vjust = 0.5, size = 5, fontface = "bold", color = "black") +
# Add labels to the bars for absolute count
geom_text(aes(label = n), position = position_stack(vjust = 0.5), color = "white", size = 5, hjust = 0.5, fontface = "bold") +
# Add axis and plot labels
labs(x = "Foraging Behavior Assay", y = "Percentage") +
# Customize the plot theme
theme_minimal() +
theme(panel.grid.major.y = element_blank(),
axis.line.y = element_blank(),
axis.ticks.y = element_blank(),
axis.text.x = element_text(size = 15),
axis.text.y = element_text(size = 15, hjust = 1),
axis.title.x = element_text(size = 15),
axis.title.y = element_text(size = 15),
plot.title = element_blank()) +
coord_flip() +
ylim(0, 100)
figs15
figs16 - total number of studies investigating each behavioural assay of anti-predator behaviour
# Calculate count for each assay in antipredator behavior
total_behaviour_antipredator_count <- bd %>%
separate_rows(behaviour_antipredator, sep = ",\\s*") %>%
count(behaviour_antipredator) %>%
na.omit()
# Calculate proportion and percentage for each category
behav_antipredator_pct <- total_behaviour_antipredator_count %>%
mutate(proportion = n/sum(total_behaviour_antipredator_count$n),
percentage = proportion*100)
# Create a bar chart with the count on the x-axis and antipredator behavior assay on the y-axis
figs16 <- ggplot(behav_antipredator_pct, aes(x = reorder(behaviour_antipredator, n), y = percentage)) +
# Customize the appearance of the bars
geom_bar(stat = "identity", fill = "#5F85AE", color = "white", alpha = 0.8, position = position_dodge(0.9)) +
# Add labels to the bars for percentage
geom_text(aes(label = paste0(round(percentage, 1), "%")), hjust = -0.2, vjust = 0.5, size = 5, fontface = "bold", color = "black") +
# Add labels to the bars for absolute count
geom_text(aes(label = n), position = position_stack(vjust = 0.5), color = "white", size = 5, hjust = 0.5, fontface = "bold") +
# Add axis and plot labels
labs(x = "Antipredator Behavior Assay", y = "Percentage") +
# Customize the plot theme
theme_minimal() +
theme(panel.grid.major.y = element_blank(),
axis.line.y = element_blank(),
axis.ticks.y = element_blank(),
axis.text.x = element_text(size = 15),
axis.text.y = element_text(size = 15, hjust = 1),
axis.title.x = element_text(size = 15),
axis.title.y = element_text(size = 15),
plot.title = element_blank()) +
coord_flip() +
ylim(0, 100)
figs16
figs17 - total number of studies investigating each behavioural assay of Anxiety or Boldness behaviour
# Calculate count for each assay in anxiety behavior
total_behaviour_anxiety_count <- bd %>%
separate_rows(behaviour_anxiety, sep = ",\\s*") %>%
count(behaviour_anxiety) %>%
na.omit()
# Calculate proportion and percentage for each category
behav_anxiety_pct <- total_behaviour_anxiety_count %>%
mutate(proportion = n/sum(total_behaviour_anxiety_count$n),
percentage = proportion*100)
# Create a bar chart with the count on the x-axis and anxiety behavior assay on the y-axis
figs17 <- ggplot(behav_anxiety_pct, aes(x = reorder(behaviour_anxiety, n), y = percentage)) +
# Customize the appearance of the bars
geom_bar(stat = "identity", fill = "#5F85AE", color = "white", alpha = 0.8, position = position_dodge(0.9)) +
# Add labels to the bars for percentage
geom_text(aes(label = paste0(round(percentage, 1), "%")), hjust = -0.2, vjust = 0.5, size = 5, fontface = "bold", color = "black") +
# Add labels to the bars for absolute count
geom_text(aes(label = n), position = position_stack(vjust = 0.5), color = "white", size = 5, hjust = 0.5, fontface = "bold") +
# Add axis and plot labels
labs(x = "Anxiety Behavior Assay", y = "Percentage") +
# Customize the plot theme
theme_minimal() +
theme(panel.grid.major.y = element_blank(),
axis.line.y = element_blank(),
axis.ticks.y = element_blank(),
axis.text.x = element_text(size = 15),
axis.text.y = element_text(size = 15, hjust = 1),
axis.title.x = element_text(size = 15),
axis.title.y = element_text(size = 15),
plot.title = element_blank()) +
coord_flip() +
ylim(0, 80)
figs17
figs18 - heat map to show which behavours have been investigated in which pesticide target class
# Join the behaviour details and pesticide details by "study_id"
bd_pd <- left_join(bd, pd, by = "study_id")
# Separate rows in "bd_pd" by "behavioural_class" and "pesticide_target_class" columns
bd_pd1 <- separate_rows(bd_pd, behavioural_class, sep = ",\\s*", convert = TRUE)
bd_pd1<- separate_rows(bd_pd1, pesticide_target_class, sep = ",\\s*", convert = TRUE)
# Group by "behavioural_class" and "pesticide_target_class" and summarize count
bd_pd_summary1 <- bd_pd1 %>%
mutate(behavioural_class = str_trim(behavioural_class),
pesticide_target_class = str_trim(pesticide_target_class)) %>%
group_by(behavioural_class, pesticide_target_class) %>%
summarise(count = n()) %>%
ungroup() ## `summarise()` has grouped output by 'behavioural_class'. You can override using
## the `.groups` argument.# Create a heatmap with pesticide target class on the x-axis and behavioural class on the y-axis
figs18 <- ggplot(bd_pd_summary1, aes(x = pesticide_target_class, y = behavioural_class, fill = count)) +
#Create and fill each tile
geom_tile(color = "white") +
scale_fill_gradient(low = "#F0F4F8", high = "#446487") +
# Add labels to the bars for absolute count
geom_text(aes(label = count), color = "black", size = 4) +
# Add axis and plot labels
labs(x = "Pesticide Target Class", y = "Behavioural Class", fill = "Count") +
# Customize the plot theme
theme_minimal() +
theme(panel.grid.major.y = element_blank(),
axis.line.y = element_blank(),
axis.ticks.y = element_blank(),
axis.text.x = element_text(size = 15),
axis.text.y = element_text(size = 15, hjust = 1),
axis.title.x = element_text(size = 15),
axis.title.y = element_text(size = 15),
plot.title = element_blank())
figs18
figs19 - heat map to show which behavours have been investigated in which pesticide chemical class
# Separate rows by behavioural_class and pesticide_chemical_class columns
bd_pd2 <- separate_rows(bd_pd, behavioural_class, sep = ",\\s*", convert = TRUE)
bd_pd2 <- separate_rows(bd_pd2, pesticide_chemical_class, sep = ",", convert = TRUE)
# Get the top 3 most numerous pesticide chemical classes
bd_pd_summary2 <- bd_pd2 %>%
mutate(behavioural_class = str_trim(behavioural_class),
pesticide_target_class = str_trim(pesticide_chemical_class)) %>%
group_by(behavioural_class, pesticide_chemical_class) %>%
summarise(count = n()) %>%
ungroup() ## `summarise()` has grouped output by 'behavioural_class'. You can override using
## the `.groups` argument.top_pesticide_classes <- bd_pd_summary2 %>%
filter(!is.na(pesticide_chemical_class)) %>%
group_by(pesticide_chemical_class) %>%
summarise(count = sum(count)) %>%
ungroup() %>%
top_n(3, count) %>%
pull(pesticide_chemical_class)
# Subset the data to include only the top 3 classes
bd_pd_summary_top3 <- bd_pd_summary2 %>%
filter(pesticide_chemical_class %in% top_pesticide_classes)
# Create a heatmap with pesticide chemical class on the x-axis and behavioral class on the y-axis
figs19 <- ggplot(bd_pd_summary_top3, aes(x = pesticide_chemical_class, y = behavioural_class, fill = count)) +
#Create and fill each tile
geom_tile(color = "white") +
scale_fill_gradient(low = "#F0F4F8", high = "#446487") +
# Add labels to the bars for absolute count
geom_text(aes(label = ifelse(count > 0, count, "")), color = "black", size = 4) +
# Add axis and plot labels
labs(x = "Pesticide Chemical Class", y = "Behavioural Class", fill = "Count") +
# Customize the plot theme
theme_minimal() +
theme(panel.grid.major.y = element_blank(),
axis.line.y = element_blank(),
axis.ticks.y = element_blank(),
axis.text.x = element_text(size = 15),
axis.text.y = element_text(size = 15, hjust = 1),
axis.title.x = element_text(size = 15),
axis.title.y = element_text(size = 15),
plot.title = element_blank())
figs19
figs20 - heat map to show which life stages of exposure have been exposed to each pesticide chemical class
# Join the stydt details with pesticide details by "study_id".
sd_pd <- left_join(sd, pd, by = "study_id")
# Separate rows in "sd_pd" by "life_stage_exposure" and "pesticide_chemical_class" columns
sd_pd1 <- separate_rows(sd_pd, life_stage_exposure, sep = ",", convert = TRUE)
sd_pd1 <- separate_rows(sd_pd1, pesticide_chemical_class, sep = ",", convert = TRUE)
# Group by "life_stage_exposure" and "pesticide_chemical_class" and summarize count
sd_pd_summary1 <- sd_pd1 %>%
mutate(life_stage_exposure = str_trim(life_stage_exposure),
pesticide_chemical_class = str_trim(pesticide_chemical_class)) %>%
group_by(life_stage_exposure, pesticide_chemical_class) %>%
summarise(count = n()) %>%
ungroup()## `summarise()` has grouped output by 'life_stage_exposure'. You can override
## using the `.groups` argument.top_pesticide_classes <- sd_pd_summary1 %>%
filter(!is.na(pesticide_chemical_class)) %>%
group_by(pesticide_chemical_class) %>%
summarise(count = sum(count)) %>%
ungroup() %>%
top_n(4, count) %>%
pull(pesticide_chemical_class)
sd_pd_summary1_top5 <- sd_pd_summary1 %>%
filter(pesticide_chemical_class %in% top_pesticide_classes)
# Create a heatmap with pesticide target class on the x-axis and behavioural class on the y-axis
figs20 <- ggplot(sd_pd_summary1_top5, aes(x = pesticide_chemical_class, y = life_stage_exposure, fill = count)) +
#Create and fill each tile
geom_tile(color = "white") +
scale_fill_gradient(low = "#F0F4F8", high = "#446487") +
# Add labels to the bars for absolute count
geom_text(aes(label = ifelse(count > 0, count, "")), color = "black", size = 4) +
# Add axis and plot labels
labs(x = "Pesticide Chemical Class", y = "Life Stage Exposure", fill = "Count") +
# Customize the plot theme
theme_minimal() +
theme(panel.grid.major.y = element_blank(),
axis.line.y = element_blank(),
axis.ticks.y = element_blank(),
axis.text.x = element_text(size = 15),
axis.text.y = element_text(size = 15, hjust = 1),
axis.title.x = element_text(size = 15),
axis.title.y = element_text(size = 15),
plot.title = element_blank())
figs20
figs21 - heat map to show which life stages of exposure have been exposed to each target chemical class
# Separate rows by life_stage_exposure and pesticide_target_class columns
sd_pd2 <- separate_rows(sd_pd, life_stage_exposure, sep = ",", convert = TRUE)
sd_pd2 <- separate_rows(sd_pd2, pesticide_target_class, sep = ",", convert = TRUE)
# Group by "life_stage_exposure" and "pesticide_target_class" and summarize count
sd_pd_summary2 <- sd_pd2 %>%
mutate(life_stage_exposure = str_trim(life_stage_exposure),
pesticide_target_class = str_trim(pesticide_target_class)) %>%
group_by(life_stage_exposure, pesticide_target_class) %>%
summarise(count = n()) %>%
ungroup()## `summarise()` has grouped output by 'life_stage_exposure'. You can override
## using the `.groups` argument.# Create a heatmap with pesticide target class on the x-axis and life stage exposure on the y-axis
figs21 <- ggplot(sd_pd_summary2, aes(x = pesticide_target_class, y = life_stage_exposure, fill = count)) +
#Create and fill each tile
geom_tile(color = "white") +
scale_fill_gradient(low = "#F0F4F8", high = "#446487") +
# Add labels to the bars for absolute count
geom_text(aes(label = ifelse(count > 0, count, "")), color = "black", size = 4) +
# Add axis and plot labels
labs(x = "Pesticide Target Class", y = "Life Stage Exposure", fill = "Count") +
# Customize the plot theme
theme_minimal() +
theme(panel.grid.major.y = element_blank(),
axis.line.y = element_blank(),
axis.ticks.y = element_blank(),
axis.text.x = element_text(size = 15),
axis.text.y = element_text(size = 15, hjust = 1),
axis.title.x = element_text(size = 15),
axis.title.y = element_text(size = 15),
plot.title = element_blank())
figs21 
Objective 4. To examine how are authors connected between countries and how is the literature connected between and within disciplines.
figs24 - general bibliometric summaries
# Perform bibliometric analysis on dataset "bib_sco"
figs24 <- biblioAnalysis(bib_sco)
# Display the plot of the analysis results
plot(figs24)
figs27 - co-occurance matrix
# Generate a bibliometric network based on co-occurrences of keywords in the "bib_sco" dataset
NetMatrix_keywords <- biblioNetwork(bib_sco, analysis = "co-occurrences", network = "keywords", sep = ";")
# Plot the network using the "networkPlot" function, with various formatting options
figs25 <- networkPlot(NetMatrix_keywords, normalize="association", n = 10,
Title = "Keyword Co-occurrences", type = "fruchterman",
size.cex = TRUE, size = 10, remove.multiple = F,
edgesize = 4, labelsize = 3, label.cex = TRUE,
edges.min = 2, label.n = 10, alpha = 0.3)
fig s26 - thematic map based on keywords
# Set plot parameters to display a single plot with narrow margins
par(mfrow=c(1,1), mar=c(0,2,0,2))
# Generate a thematic map of the "bib_sco" dataset, using the "ID" field as the basis for the map
figs26 <- thematicMap(bib_sco, field = "ID", n = 1000, minfreq = 5, stemming = FALSE, size = 0.5, n.labels = 1, repel = TRUE)
# Display the resulting map using the "plot" function
plot(figs26$map)
fig6 - country publications map
# Extract country information from the "AU1_CO" and "AU_CO" fields of the "bib_sco" dataset
bibmap <- metaTagExtraction(bib_sco, Field = "AU1_CO", sep = ";")
bibmap <- metaTagExtraction(bibmap, Field = "AU_CO", sep = ";")
# Create a data frame with counts of articles from each country
bibmap %>%
group_by(AU1_CO) %>%
count() %>%
filter(!is.na(AU1_CO)) -> firstcountrycounts
# Load world map data and remove countries with longitude >180 to make an equal projection-like map
world_map <- map_data("world") %>%
filter(! long > 180)
# Format country names to match regions on the world map
firstcountrycounts$region <- str_to_title(firstcountrycounts$AU1_CO)
firstcountrycounts$region[firstcountrycounts$region == "Usa"] <- "USA"
firstcountrycounts$region[firstcountrycounts$region == "Korea"] <- "South Korea"
# Join count data with map data and set missing counts to zero
emptymap <- tibble(region = unique(world_map$region), n = rep(0,length(unique(world_map$region))))
fullmap <- left_join(emptymap, firstcountrycounts, by = "region")
fullmap$n <- fullmap$n.x + fullmap$n.y
fullmap$n[is.na(fullmap$n)] <- 0
# Create a plot of the world map with regions colored based on article counts
figs27 <- fullmap %>%
ggplot(aes(fill = n, map_id = region)) +
geom_map(map = world_map) +
expand_limits(x = world_map$long, y = world_map$lat) +
coord_map("moll") + # Mollweide projection
theme_map(line_size = 0.5) +
scale_fill_gradient(low = "#ECF207", high = "#C307F2", # set color gradient
name = "Score", na.value = "gray",
limits = c(0.1, 24),
guide = guide_colorbar(direction = "vertical.",
barwidth = unit(15, units = "mm"),
barheight = unit(50, units = "mm"))) +
guides(fill = guide_colourbar()) +
theme(panel.background = element_rect(fill = "transparent", colour = NA),
plot.background = element_rect(fill = "transparent", colour = NA))
figs27
# ggsave(here("figures", "world_map.png"), width = 16, height = 10, units = "cm", scale = 2, dpi = 300)figs28 - country collaboration network circle plot
# Extract countries from the affiliations
bib_sco2 <- metaTagExtraction(bib_sco, Field = "AU_CO", sep = ";")
# Create a network matrix of collaborations between countries
NetMatrix_country <- biblioNetwork(bib_sco2, analysis = "collaboration", network = "countries", sep = ";")
# Convert the network matrix to a standard matrix
NetMatrix_country <- as.matrix(NetMatrix_country)
# Remove the lower triangle (as this is duplication of info)
NetMatrix_country[lower.tri(NetMatrix_country)] <- 0
# Change column and row names to title case
colnames(NetMatrix_country) <- str_to_title(colnames(NetMatrix_country))
rownames(NetMatrix_country) <- str_to_title(rownames(NetMatrix_country))
# Change "Usa" to "USA"
colnames(NetMatrix_country)[colnames(NetMatrix_country) == "Usa"] <- "USA"
rownames(NetMatrix_country)[rownames(NetMatrix_country) == "Usa"] <- "USA"
# Change "United Kingdom" to "UK" for easier plotting
colnames(NetMatrix_country)[colnames(NetMatrix_country) == "United Kingdom"] <- "UK"
rownames(NetMatrix_country)[rownames(NetMatrix_country) == "United Kingdom"] <- "UK"
my.cols2 <- c(
USA = "#e41a1c",
Canada = "#377eb8",
Mexico = "#4daf4a",
Brazil = "#984ea3",
Ecuador = "#ff7f00",
Chile = "#ffff33",
Philippines = "#a65628",
China = "#f781bf",
Korea = "#e41a1c",
India = "#984ea3",
Turkey = "#ff7f00",
Romania = "#4daf4a",
Switzerland = "#377eb8",
Norway = "#1b9e77",
Netherlands = "#d95f02",
Germany = "#7570b3",
France = "#e7298a",
Italy = "#66a61e",
Portugal = "#e6ab02",
Spain = "#a6761d",
Sweden = "#666666"
)
# Create a chord diagram of the network matrix
figs28 <- chordDiagram(NetMatrix_country, annotationTrack = "grid", preAllocateTracks = 1, grid.col = my.cols2)
# Add a track to label each sector with its name
circos.trackPlotRegion(track.index = 1, panel.fun = function(x, y) {
xlim = get.cell.meta.data("xlim")
ylim = get.cell.meta.data("ylim")
sector.name = get.cell.meta.data("sector.index")
circos.text(mean(xlim), ylim[1] + .1, sector.name, facing = "clockwise", niceFacing = TRUE, adj = c(0, 0.5))
circos.axis(h = "top", labels.cex = 0.5, major.tick.length = 0.2, sector.index = sector.name, track.index = 2)
}, bg.border = NA)
fig6a collaboration matrix with self citation removed
# Making diagnol zero to remove self citations
diag(NetMatrix_country) <- 0
# Create a chord diagram of the network matrix
fig6a <- chordDiagram(NetMatrix_country, annotationTrack = "grid", preAllocateTracks = 1, grid.col = my.cols2)
# Add a track to label each sector with its name
circos.trackPlotRegion(track.index = 1, panel.fun = function(x, y) {
xlim = get.cell.meta.data("xlim")
ylim = get.cell.meta.data("ylim")
sector.name = get.cell.meta.data("sector.index")
circos.text(mean(xlim), ylim[1] + .1, sector.name, facing = "clockwise", niceFacing = TRUE, adj = c(0, 0.5))
circos.axis(h = "top", labels.cex = 0.5, major.tick.length = 0.2, sector.index = sector.name, track.index = 2)
}, bg.border = NA)
fig6b continent collaboration
NetMatrix_continent <- NetMatrix_country
# Change "Usa" to "North America"
colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "USA"] <- "North America"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "USA"] <- "North America"
# Change "Usa" to "North America"
colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Canada"] <- "North America"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Canada"] <- "North America"
# Change "Mexico" to "North America"
colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Mexico"] <- "North America"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Mexico"] <- "North America"
# Change China to Asia
colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "China"] <- "Asia"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "China"] <- "Asia"
# Change India to Asia
colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "India"] <- "Asia"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "India"] <- "Asia"
# Change Phillipines to Asia
colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Philippines"] <- "Asia"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Philippines"] <- "Asia"
# Change "Brazil" to "South America"
colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Brazil"] <- "South America"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Brazil"] <- "South America"
# Change "Ecuador" to "South America"
colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Ecuador"] <- "South America"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Ecuador"] <- "South America"
# Change "Chile" to "South America"
colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Chile"] <- "South America"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Chile"] <- "South America"
# Change "United Kingdom" to "Europe"
colnames(NetMatrix_continent)[colnames(NetMatrix_continent) =="UK"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) =="UK"] <- "Europe"
# Change "Romania" to "Europe"
colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Romania"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Romania"] <- "Europe"
# Change "Germany" to "Europe"
colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Germany"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Germany"] <- "Europe"
#Change "France" to "Europe"
colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "France"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "France"] <- "Europe"
#Change "Spain" to "Europe"
colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Spain"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Spain"] <- "Europe"
#Change "Portugal" to "Europe"
colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Portugal"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Portugal"] <- "Europe"
#Change "Sweden" to "Europe"
colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Sweden"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Sweden"] <- "Europe"
#Change "Italy" to "Europe"
colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Italy"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Italy"] <- "Europe"
#Change "Netherlands" to "Europe"
colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Netherlands"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Netherlands"] <- "Europe"
#Change "Norway" to "Europe"
colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Norway"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Norway"] <- "Europe"
#Change "Switzerland" to "Europe"
colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Switzerland"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Switzerland"] <- "Europe"
#Change "Czech Republic" to "Europe"
colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Czech Republic"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Czech Republic"] <- "Europe"
colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Korea"] <- "Asia"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Korea"] <- "Asia"
colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Turkey"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Turkey"] <- "Europe"
# collapsing
merge_matrix <- t(rowsum(t(NetMatrix_continent), group = colnames(NetMatrix_continent), na.rm = T))
merge_matrix2 <- rowsum(merge_matrix, group = rownames(merge_matrix))
# remove diagonal elements
diag(merge_matrix2) <- 0
# chord plot
chordDiagramFromMatrix(merge_matrix2)
# Create a chord diagram of the network matrix
fig6b <- chordDiagram(merge_matrix2, annotationTrack = "grid", preAllocateTracks = 1)
# Add a track to label each sector with its name
circos.trackPlotRegion(track.index = 1, panel.fun = function(x, y) {
xlim = get.cell.meta.data("xlim")
ylim = get.cell.meta.data("ylim")
sector.name = get.cell.meta.data("sector.index")
circos.text(mean(xlim), ylim[1] + 0.2, sector.name, facing = "clockwise", niceFacing = TRUE, adj = c(0, 1))
circos.axis(h = "top", labels.cex = 0.5, major.tick.length = 0.2, sector.index = sector.name, track.index = 2)
}, bg.border = NA)
LS0tDQpUaXRsZTogIk1hcHBpbmcgdGhlIEJlaGF2aW91cmFsIEltcGFjdHMgb2YgUGVzdGljaWRlIEV4cG9zdXJlcyBvbiBaZWJyYWZpc2g6IEEgU3lzdGVtYXRpYyBFdmlkZW5jZSBNYXAgYW5kIEJpYmxpb21ldHJpYyBBbmFseXNpcyAiDQphdXRob3JzOiAiS3lsZSBNb3JyaXNvbiwgTWFudWVsYSBTYW50YW5hLCBZZWZlbmcgWWFuZywgTWFsZ29yYXphdGEgTGFnaXN6IGFuZCwgU2hpbmljaGkgTmFrYWdhd2EiDQpzdWJ0aXRsZTogU3VwcGxlbWVudGFsIGZpbGUgczINCm91dHB1dDogDQogIHJtZGZvcm1hdHM6OnJvYm9ib29rOg0KICAgIGNvZGVfZm9sZGluZzogc2hvdw0KICAgIGNvZGVfZG93bmxvYWQ6IHRydWUNCiAgICB0b2NfZGVwdGg6IDQNCmVkaXRvcl9vcHRpb25zOiANCiAgY2h1bmtfb3V0cHV0X3R5cGU6IGNvbnNvbGUNCi0tLQ0KDQpJbiB0aGlzIFJtYXJrZG93biB3ZSBwcm92aWRlIHRoZSBmb2xsb3dpbmcgd29ya2Zsb3c6DQoNCi0gT2JqZWN0aXZlIDEuCVRvIGludmVzdGlnYXRlIHRoZSB0eXBlcyBvZiBwZXN0aWNpZGVzIGFuZCBwZXN0aWNpZGUgY2xhc3NlcywgYm90aCBpbiB0ZXJtcyBvZiBjaGVtaWNhbCBzdHJ1Y3R1cmUgYW5kIHRhcmdldCBvcmdhbmlzbSwgdGhhdCBoYXZlIGJlZW4gdXNlZCBpbiBzdHVkaWVzIGV4YW1pbmluZyB0aGUgZWZmZWN0cyBvZiBwZXN0aWNpZGUgZXhwb3N1cmUgb24gbm9uLWxhcnZhbCB6ZWJyYWZpc2ggYmVoYXZpb3VyLg0KDQotIE9iamVjdGl2ZSAyLiAJVG8gaW52ZXN0aWdhdGUgdGhlIHN0dWR5IGRlc2lnbnMgZW1wbG95ZWQgdG8gYXNzZXNzIHRoZSBlZmZlY3RzIG9mIHBlc3RpY2lkZSBleHBvc3VyZSBvbiB0aGUgYmVoYXZpb3VyIG9mIG5vbi1sYXJ2YWwgemVicmFmaXNoLiAgDQoNCi0gT2JqZWN0aXZlIDMuICBUbyBpZGVudGlmeSB0aGUgc3BlY2lmaWMgYmVoYXZpb3VycyB0aGF0IGhhdmUgYmVlbiBpbnZlc3RpZ2F0ZWQgaW4gcGVzdGljaWRlIGV4cG9zdXJlIHN0dWRpZXMgdGhhdCB1c2Ugbm9uLWxhcnZhbCB6ZWJyYWZpc2ggYXMgYSBtb2RlbC4NCg0KLSBPYmplY3RpdmUgNC4JVG8gYXNzZXNzIHRoZSByZXNlYXJjaCBvdXRwdXRzIG9mIGRpZmZlcmVudCBjb3VudHJpZXMgYW5kIGludmVzdGlnYXRlIHRoZSBsZXZlbCBvZiBjb2xsYWJvcmF0aW9uIGJldHdlZW4gYXV0aG9ycyBhbW9uZ3N0IGRpZmZlcmVudCBjb3VudHJpZXMuIA0KDQojICoqTG9hZCBwYWNrYWdlcyBhbmQgZGF0YSoqDQoNCiMjIExvYWQgcGFja2FnZXMNCg0KYGBge3J9DQpybShsaXN0ID0gbHMoKSkNCmtuaXRyOjpvcHRzX2NodW5rJHNldChlY2hvID0gVFJVRSkNCnBhY21hbjo6cF9sb2FkKHRpZHl2ZXJzZSwNCiAgICAgICAgICAgICAgIGhlcmUsDQogICAgICAgICAgICAgICBzdHJpbmdyLA0KICAgICAgICAgICAgICAga25pdHIsDQogICAgICAgICAgICAgICBmb3JtYXRSLA0KICAgICAgICAgICAgICAgZm9yY2F0cywNCiAgICAgICAgICAgICAgIGdncGxvdDIsDQogICAgICAgICAgICAgICBocmJydGhlbWVzLCAjIGZvciBnZ3Bsb3QyDQogICAgICAgICAgICAgICBwYXRjaHdvcmssICMgZm9yIGdncGxvdDINCiAgICAgICAgICAgICAgIGJpYmxpb21ldHJpeCwNCiAgICAgICAgICAgICAgIGlncmFwaCwgDQogICAgICAgICAgICAgICB0aWR5ciwNCiAgICAgICAgICAgICAgIGNpcmNsaXplLA0KICAgICAgICAgICAgICAgY293cGxvdCwgDQogICAgICAgICAgICAgICBtYXBwcm9qKQ0KYGBgDQoNCg0KIyMgTG9hZCBkYXRhDQpBbGwgZXh0cmFjdGVkIGRhdGEgaXMgc3RvcmVkIGluIGZpdmUgc2VwYXJhdGUgKiouY3N2KiogZmlsZXMgcmVwcmVzZW50aW5nIGRpZmZlcmVudCBhc3BlY3RzIG9mIHRoZSBkYXRhIChleHRyYWN0ZWQgdmlhIHN0cnVjdHVyZWQgcHJlZGVmaW5lZCBHb29nbGUgRm9ybXMgLSBvbmUgcGVyIHRhYmxlKS4gDQoNCkJpYmxpb2dyYXBoaWMgZGF0YSByZWNvcmRzIGFyZSBleHBvcnRlZCBmcm9tIFNjb3B1cyAoaW5jbHVkaW5nIGNpdGVkIHJlZmVyZW5jZXMgZmllbGQpIGluIC5iaWIgZm9ybWF0IGFuZCBsb2NhbGx5IHNhdmVkIGFzICoqc2NvcHVzLmJpYioqLiAgICANCg0KYGBge3J9DQojIExvYWQgZGF0YSBzZXQgY29udGFpbmluZyBiYWNrZ3JvdW5kIGluZm9ybWF0aW9uIG9uIGVhY2ggc3R1ZHkNCmJpYiA8LSByZWFkX2NzdihoZXJlKCJkYXRhIiwgInpmX3NtX2JpYmxpb21ldHJpY3MuY3N2IiksIHNraXAgPSAwKSAjIDgzIHJvd3MgOSBjb2x1bW5zIA0KDQojIExvYWQgZGF0YSBzZXQgY29udGFpbmluZyBpbmZvcm1hdGlvbiBvbiB0aGUgZGVzaWduIG9mIGVhY2ggc3R1ZHkgDQpzZCA8LSByZWFkX2NzdihoZXJlKCJkYXRhIiwiemZfc21fc3R1ZHlfZGV0YWlscy5jc3YiKSwgc2tpcCA9IDApICMgIDgzIHJvd3MgMTAgY29sdW1ucyANCg0KIyBMb2FkIGRhdGEgc2V0IGNvbnRhaW5pbmcgZGV0YWlscyBvZiBlYWNoIHBlc3RpY2lkZSB1c2VkIGluIGVhY2ggZXhwb3N1cmUgc3R1ZGllcw0KcGQgPC0gcmVhZF9jc3YoaGVyZSgiZGF0YSIsICJ6Zl9zbV9wZXN0aWNpZGVfZGV0YWlscy5jc3YiKSwgc2tpcCA9IDApICMgODMgcm93cyA5IGNvbHVtbnMgDQoNCiMgTG9hZCBkYXRhIHNldCBjb250YWluaW5nIGRldGFpbHMgb2YgZG9zYWdlIGFuZCBkdXJhdGlvbiBvZiBwZXN0aWNpZGUgZXhwb3N1cmUgDQpwZG8gPC1yZWFkX2NzdihoZXJlKCJkYXRhIiwiemZfc21fcGVzdGljaWRlX2Rvc2FnZS5jc3YiKSwgc2tpcCA9IDApICMgMTA4IHJvd3MgMTIgY29sdW1ucyANCg0KIyBMb2FkIGRhdGEgc2V0IGNvbnRhaW5pbmcgZGV0YWlscyBvZiBiZWhhdmlvcnVzIG1lYXN1cmVkIGluIHJlc3BvbnNlIHRvIHBlc3RpY2lkZSBleHBvc3VyZSANCmJkIDwtIHJlYWRfY3N2KGhlcmUoImRhdGEiLCAiemZfc21fYmVoYXZpb3VyX2RldGFpbHMuY3N2IiksIHNraXAgPSAwKSAjIDgzIHJvd3MgMTMgY29sdW1ucyANCg0KIyBMb2FkIGJpYmxpb21ldHJpYyBpbmZvcm1hdGlvbiBleHRyYWN0ZWQgZnJvbSBzY29wdXMgDQpiaWJfc2NvIDwtIGNvbnZlcnQyZGYoaGVyZSgiZGF0YSIsInNjb3B1cy5iaWIiKSwgZGJzb3VyY2UgPSAic2NvcHVzIiwgZm9ybWF0ID0gImJpYnRleCIpICMgNzkgcm93cyAzOCBjb2x1bW5zIA0KYGBgDQoNCiMgT2JqZWN0aXZlIDA6IEdlbmVyYWwgbGl0ZXJhdHVyZSBjaGFyYWN0ZXJpc3RpY3MNCiMjIGZpZyAyLSBzdHVkeSB0aW1lIHRpbWUgdHJlbmRzDQpgYGB7cn0NCg0KIyBDb3VudCB0aGUgbnVtYmVyIG9mIGFydGljbGVzIGJ5IHllYXINCmZpZzIgPC0gYmliICU+JQ0KICBjb3VudChwdWJsaWNhdGlvbl95ZWFyKSAlPiUNCiAgDQogICMgQ3JlYXRlIGEgYmFyIGNoYXJ0IHdpdGggcHVibGljYXRpb24geWVhciBvbiB4LWF4aXMgYW5kIGNvdW50IG9uIHktYXhpcw0KICBnZ3Bsb3QoYWVzKHggPSBwdWJsaWNhdGlvbl95ZWFyLCB5ID0gbikpICsNCiAgDQogICMgQ3VzdG9taXplIHRoZSBhcHBlYXJhbmNlIG9mIHRoZSBiYXJzDQogIGdlb21fYmFyKHN0YXQgPSAiaWRlbnRpdHkiLCBmaWxsID0gIiM1Rjg1QUUiLCBjb2xvciA9ICJ3aGl0ZSIsIGFscGhhID0gMC44LCBwb3NpdGlvbiA9IHBvc2l0aW9uX2RvZGdlKDAuOSkpICsNCiAgDQogICMgQWRkIGxhYmVscyB0byB0aGUgYmFycw0KICBnZW9tX3RleHQoYWVzKGxhYmVsID0gbiksIHBvc2l0aW9uID0gcG9zaXRpb25fc3RhY2sodmp1c3QgPSAwLjUpLCBmb250ZmFjZSA9ICJib2xkIiwgY29sb3IgPSAid2hpdGUiLCBzaXplID0gNSwgaGp1c3QgPSAwLjUpICsNCiAgDQogICMgQ3VzdG9taXplIHRoZSBhcHBlYXJhbmNlIG9mIHRoZSBwbG90DQogIHRoZW1lX21pbmltYWwoKSArDQogIGxhYnMoeCA9ICJZZWFyIiwgeSA9ICJBcnRpY2xlIENvdW50IikgKw0KICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAibm9uZSIsDQogICAgICAgIGF4aXMudGl0bGUueCA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUsIGZhY2UgPSAiYm9sZCIpLA0KICAgICAgICBheGlzLnRpdGxlLnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1LCBmYWNlID0gImJvbGQiKSwNCiAgICAgICAgYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoYW5nbGUgPSA0NSwgaGp1c3QgPSAxLCBzaXplID0gMTUpLA0KICAgICAgICBheGlzLnRleHQueSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgICAgICBwYW5lbC5ncmlkLm1ham9yLnkgPSBlbGVtZW50X2xpbmUoY29sb3IgPSAiZ3JheSIpLA0KICAgICAgICBwYW5lbC5ncmlkLm1pbm9yLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgICAgIHBsb3QudGl0bGUgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE2LCBmYWNlID0gImJvbGQiKSkNCiANCg0KZmlnMg0KIyBnZ3NhdmUoaGVyZSgiZmlndXJlcyIsICJmaWcyX3RpbWVfdHJlbmRzLnBkZiIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDMwMCwgZGV2aWNlID0gY2Fpcm9fcGRmKQ0KYGBgDQoNCg0KIyAgT2JqZWN0aXZlIDEuCVRvIGludmVzdGlnYXRlIHRoZSB0eXBlcyBvZiBwZXN0aWNpZGVzIGFuZCBwZXN0aWNpZGUgY2xhc3NlcywgYm90aCBpbiB0ZXJtcyBvZiBjaGVtaWNhbCBhbmQgdGFyZ2V0LCB0aGF0IGhhdmUgYmVlbiB1c2VkIGluIGV4cGVyaW1lbnRzIGV4YW1pbmluZyB0aGUgZWZmZWN0cyBvZiBwZXN0aWNpZGUgZXhwb3N1cmUgb24gemVicmFmaXNoIGJlaGF2aW91ci4NCg0KIyMgZmlnM2EgLSBwbG90IGZvciB0b3RhbCBvZiBpbmRpdmlkdWFsIHBlc3RpY2lkZXMgdXNlZCBpbiBwZXN0aWNpZGUgZXhwb3N1cmUgc3R1ZGllcw0KYGBge3J9DQojIFNlcGFyYXRlIHJvd3Mgd2l0aCBtdWx0aXBsZSBwZXN0aWNpZGVzLCBjb3VudCB0aGVpciBvY2N1cnJlbmNlLCBhbmQgY29tYmluZWQgYWxsIHBlc3RpY2lkZSB0aGF0IG9jY3VyZWQgb25jZSBhcyAib3RoZXIiDQp0b3RhbF9wZXN0aWNpZGVfY291bnQgPC0gcGQgJT4lDQogIHNlcGFyYXRlX3Jvd3MocGVzdGljaWRlX2ludmVzdGlnYXRlZCwgc2VwID0gIiwgIikgJT4lDQogIGNvdW50KHBlc3RpY2lkZV9pbnZlc3RpZ2F0ZWQpICU+JQ0KICBtdXRhdGUocGVzdGljaWRlX2ludmVzdGlnYXRlZCA9IGlmZWxzZShuID09IDEsICJvdGhlciIsIGFzLmNoYXJhY3RlcihwZXN0aWNpZGVfaW52ZXN0aWdhdGVkKSkpICU+JQ0KICAjICJvdGhlciIgaW5jbHVkZXMgdHJpYm90eWx0aW4sIHRlcmJ1dHlsYXppbmUsIHNvZGl1bSBmbHVyaWRlLCBweXJpbWV0aG9uaWwsIHB5cmFjbG9zdHJvYmluLCBwcm9waWNvbmF6b2xlLCBwcm9jaGxvcmF6LCBwYXJhdGhpb24sIHBhY2xvYnV0YXpvbCwgbW9ub2NvdG9waG9zLCBtZXRoeWxiZW56b2F0ZSwgbWV0aHlsYmVuem9hdGUsIG1ldGhvbXlsLCBtZWNyb3Byb3AsIGxpbnVyb24sIGVuZG9zdWxmYW4sIGRpdXJvbiwgZGlmZW5vY29uYXpvbGUsIGRpY2FtYmEsICAgY3lwcm9kaW5pbCwgY2hsb3JvdGhhbG9uaWwsIGNhcmJvZnVyYW4sIGNhcmJhcnlsLCBicm9mbGFuaWxpZGUgYW5kIGJvc2NhbGlkLiANCiAgZ3JvdXBfYnkocGVzdGljaWRlX2ludmVzdGlnYXRlZCkgJT4lDQogIHN1bW1hcmlzZShuID0gc3VtKG4pKQ0KDQogICMgQ2FsY3VsYXRlIHBlc3RpY2lkZSBjb3VudCBhcyBhIHBlcmNlbnRhZ2UgDQogIHBlc3RpY2lkZV9wY3QgPC0gdG90YWxfcGVzdGljaWRlX2NvdW50ICU+JQ0KICBtdXRhdGUocHJvcG9ydGlvbiA9IG4vc3VtKHRvdGFsX3Blc3RpY2lkZV9jb3VudCRuKSwNCiAgICAgICAgIHBlcmNlbnRhZ2UgPSBwcm9wb3J0aW9uKjEwMCkNCiAgDQojIENyZWF0ZSBhIGJhciBjaGFydCB3aXRoIHRoZSBjb3VudCBvZiBwZXN0aWNpZGVzIG9uIHRoZSB4LWF4aXMgYW5kIHBlc3RpY2lkZXMgb24gdGhlIHktYXhpcw0KZmlnM2EgPC0gIGdncGxvdChwZXN0aWNpZGVfcGN0LCBhZXMoeCA9IHJlb3JkZXIocGVzdGljaWRlX2ludmVzdGlnYXRlZCwgbiksIHkgPSBwZXJjZW50YWdlKSkgKw0KICANCiAgIyBDdXN0b21pemUgdGhlIGFwcGVhcmFuY2Ugb2YgdGhlIGJhcnMNCiAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIsIGZpbGwgPSAiIzVGODVBRSIsIGNvbG9yID0gIndoaXRlIiwgYWxwaGEgPSAwLjgsIHBvc2l0aW9uID0gcG9zaXRpb25fZG9kZ2UoMC45KSkgKw0KICANCiAgIyBBZGQgbGFiZWxzIHRvIHRoZSBiYXJzIGZvciBhYnNvbHV0ZSBjb3VudCANCiAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IG4pLCBwb3NpdGlvbiA9IHBvc2l0aW9uX3N0YWNrKHZqdXN0ID0gMC41KSwgY29sb3IgPSAid2hpdGUiLCBmb250ZmFjZSA9ICJib2xkIiwgc2l6ZSA9IDUpICsNCiAgDQoNCiAgIyBBZGQgbGFiZWxzIHRvIHRoZSBiYXJzIGZvciBwZXJjZW50YWdlIA0KIGdlb21fdGV4dChkYXRhID0gcGVzdGljaWRlX3BjdCwgYWVzKGxhYmVsID0gcGFzdGUwKHJvdW5kKHBlcmNlbnRhZ2UsMSksICIlIikpLCANCiAgICAgICAgICAgIHBvc2l0aW9uID0gcG9zaXRpb25fZG9kZ2Uod2lkdGggPSAwLjkpLCBoanVzdCA9IC0wLjIsIHNpemUgPSA1LCBjb2xvciA9ICJibGFjayIsIGZvbnRmYWNlID0gImJvbGQiKSArDQogIA0KICAjIEN1c3RvbWl6ZSB0aGUgYXBwZWFyYW5jZSBvZiB0aGUgcGxvdA0KICBsYWJzKHggPSAiUGVzdGljaWRlIiwgeSA9ICJQZXJjZW50YWdlIikgKw0KICB0aGVtZV9taW5pbWFsKCkgKw0KICB0aGVtZShwYW5lbC5ncmlkLm1ham9yLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgICAgIGF4aXMubGluZS55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgICAgICBheGlzLnRpY2tzLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgICAgIGF4aXMudGl0bGUueCA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgICAgICBheGlzLnRpdGxlLnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1KSwNCiAgICAgICAgYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1KSwNCiAgICAgICAgYXhpcy50ZXh0LnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1KSwNCiAgICAgICAgYXhpcy50aXRsZSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgICAgICBwbG90LnRpdGxlID0gZWxlbWVudF9ibGFuaygpKSArDQogICAgICAgIGNvb3JkX2ZsaXAoKSArDQogICAgICAgIHlsaW0oMCwzMCkNCg0KDQogZmlnM2ENCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnM2FfcGVzdGljaWRlX2NvdW50LnBkZiIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDMwMCwgZGV2aWNlID0gY2Fpcm9fcGRmKQ0KYGBgDQoNCiMjIGZpZzNiIC0gdG90YWwgZm9yIGVhY2ggcGVzdGljaWRlIHRhcmdldCBjbGFzcyB1c2VkIGluIHBlc3RpY2lkZSBleHBvc3VyZSBzdHVkaWVzDQpgYGB7cn0NCiMgU2VwYXJhdGUgcm93cyB3aXRoIG11bHRpcGxlIHBlc3RpY2lkZXMgYW5kIGNvdW50IHRoZWlyIG9jY3VycmVuY2UNCnRvdGFsX3RhcmdldF9jbGFzc19jb3VudCA8LSBwZCAlPiUNCiAgc2VwYXJhdGVfcm93cyhwZXN0aWNpZGVfdGFyZ2V0X2NsYXNzLCBzZXAgPSAiLFxccyoiKSAlPiUgIA0KICBjb3VudChwZXN0aWNpZGVfdGFyZ2V0X2NsYXNzKSANCg0KIyBDYWxjdWxhdGUgdGFyZ2V0IGNsYXNzIGNvdW50IGFzIGEgcGVyY2VudGFnZSANCiAgdGFyZ2V0X2NsYXNzX3BjdCA8LSB0b3RhbF90YXJnZXRfY2xhc3NfY291bnQgJT4lDQogIG11dGF0ZShwcm9wb3J0aW9uID0gbi9zdW0odG90YWxfdGFyZ2V0X2NsYXNzX2NvdW50JG4pLA0KICAgICAgICAgcGVyY2VudGFnZSA9IHByb3BvcnRpb24qMTAwKQ0KICANCiMgQ3JlYXRlIGEgYmFyIGNoYXJ0IHdpdGggdGhlIGNvdW50IG9mIHRhcmdldCBjbGFzc2VzICBvbiB0aGUgeC1heGlzIGFuZCBwZXN0aWNpZGVzIHRhcmdldCBjbGFzcyAgb24gdGhlIHktYXhpcw0KZmlnM2IgPC0gZ2dwbG90KHRhcmdldF9jbGFzc19wY3QsIGFlcyhyZW9yZGVyKHBlc3RpY2lkZV90YXJnZXRfY2xhc3MsIG4pLCB5ID0gcGVyY2VudGFnZSkpICsNCiAgDQogICMgQ3VzdG9taXplIHRoZSBhcHBlYXJhbmNlIG9mIHRoZSBiYXJzDQogIGdlb21fYmFyKHN0YXQgPSAiaWRlbnRpdHkiLCBmaWxsID0gIiM1Rjg1QUUiLCBjb2xvciA9ICJ3aGl0ZSIsIGFscGhhID0gMC44LCBwb3NpdGlvbiA9IHBvc2l0aW9uX2RvZGdlKDAuOSkpICsgDQogIA0KICAjIEFkZCBsYWJlbHMgdG8gdGhlIGJhcnMgZm9yIGFic29sdXRlIGNvdW50DQogIGdlb21fdGV4dChhZXMobGFiZWwgPSBuKSwgcG9zaXRpb24gPSBwb3NpdGlvbl9zdGFjayh2anVzdCA9IDAuNSksIGNvbG9yID0gIndoaXRlIiwgZm9udGZhY2UgPSAiYm9sZCIsIHNpemUgPSA3KSArDQogIA0KICAjIEFkZCBsYWJlbHMgdG8gdGhlIGJhcnMgZm9yIHBlcmNlbnRhZ2UgDQogZ2VvbV90ZXh0KGRhdGEgPSB0YXJnZXRfY2xhc3NfcGN0LCBhZXMobGFiZWwgPSBwYXN0ZTAocm91bmQocGVyY2VudGFnZSwgMSksICIlIikpLCANCiAgICAgICAgICAgIHBvc2l0aW9uID0gcG9zaXRpb25fZG9kZ2Uod2lkdGggPSAwLjkpLCBoanVzdCA9IC0wLjIsIHNpemUgPSA3LCBjb2xvciA9ICJibGFjayIsIGZvbnRmYWNlID0gImJvbGQiKSArDQogICAgDQogICMgQ3VzdG9taXplIHRoZSBhcHBlYXJhbmNlIG9mIHRoZSBwbG90DQogIGxhYnMoeCA9ICJQZXN0aWNpZGUgVGFyZ2V0IENsYXNzIiwgeSA9ICJQZXJjZW50YWdlIikgKw0KICB0aGVtZV9taW5pbWFsKCkgKw0KICB0aGVtZShwYW5lbC5ncmlkLm1ham9yLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgYXhpcy5saW5lLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgYXhpcy50aWNrcy55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgIGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KHNpemUgPSAyMCksDQogICAgYXhpcy50ZXh0LnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDIwKSwNCiAgICBheGlzLnRpdGxlLnggPSBlbGVtZW50X3RleHQoc2l6ZSA9IDIwKSwNCiAgICBheGlzLnRpdGxlLnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDIwKSwNCiAgICBwbG90LnRpdGxlID0gZWxlbWVudF9ibGFuaygpKSArDQogICAgY29vcmRfZmxpcCgpICsNCiAgICB5bGltKDAsIDgwKQ0KDQoNCiBmaWczYg0KIyBnZ3NhdmUoaGVyZSgiZmlndXJlcyIsICJmaWczYl9wZXN0aWNpZGVfdGFyZ2V0X2NvdW50LnBkZiIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDMwMCwgZGV2aWNlID0gY2Fpcm9fcGRmKQ0KYGBgDQoNCiMjIGZpZzNjIC0gdG90YWwgZm9yIGNoZW1pY2FsIGNsYXNzIA0KYGBge3J9IA0KIyBTZXBhcmF0ZSByb3dzIHdpdGggbXVsdGlwbGUgcGVzdGljaWRlcyBhbmQgY291bnQgdGhlaXIgb2NjdXJyZW5jZSwgdGhlbiBmaWx0ZXIgZm9yIGNhc2VzIHdpdGggbW9yZSB0aGFuIG9uZSBvY2N1cnJlbmNlDQp0b3RhbF9jaGVtaWNhbF9jbGFzc19jb3VudCA8LSBwZCAlPiUNCiAgc2VwYXJhdGVfcm93cyhwZXN0aWNpZGVfY2hlbWljYWxfY2xhc3MsIHNlcCA9ICIsXFxzKiIpICU+JSAgDQogIGNvdW50KHBlc3RpY2lkZV9jaGVtaWNhbF9jbGFzcykgJT4lDQogICAgbXV0YXRlKHBlc3RpY2lkZV9jaGVtaWNhbF9jbGFzcyA9IGlmZWxzZShuID09IDEsICJvdGhlciIsIGFzLmNoYXJhY3RlcihwZXN0aWNpZGVfY2hlbWljYWxfY2xhc3MpKSkgJT4lDQogICMgIm90aGVyIiBpbmNsdWRlcyB0cmlib3R5bHRpbiwgdGVyYnV0eWxhemluZSwgc29kaXVtIGZsdXJpZGUsIHB5cmltZXRob25pbCwgcHlyYWNsb3N0cm9iaW4sIHByb3BpY29uYXpvbGUsIHByb2NobG9yYXosIHBhcmF0aGlvbiwgICAgICAgcGFjbG9idXRhem9sLCBtb25vY290b3Bob3MsIG1ldGh5bGJlbnpvYXRlLCBtZXRoeWxiZW56b2F0ZSwgbWV0aG9teWwsIG1lY3JvcHJvcCwgbGludXJvbiwgZW5kb3N1bGZhbiwgZGl1cm9uLCBkaWZlbm9jb25hem9sZSwgZGljYW1iYSwgICBjeXByb2RpbmlsLCBjaGxvcm90aGFsb25pbCwgY2FyYm9mdXJhbiwgY2FyYmFyeWwsIGJyb2ZsYW5pbGlkZSBhbmQgYm9zY2FsaWQuIA0KICBncm91cF9ieShwZXN0aWNpZGVfY2hlbWljYWxfY2xhc3MpICU+JQ0KICBzdW1tYXJpc2UobiA9IHN1bShuKSkNCg0KIyBDYWxjdWxhdGUgdGFyZ2V0IGNsYXNzIGNvdW50IGFzIGEgcGVyY2VudGFnZSANCiAgY2hlbWljYWxfY2xhc3NfcGN0IDwtIHRvdGFsX2NoZW1pY2FsX2NsYXNzX2NvdW50ICU+JQ0KICBtdXRhdGUocHJvcG9ydGlvbiA9IG4vc3VtKHRvdGFsX2NoZW1pY2FsX2NsYXNzX2NvdW50JG4pLA0KICAgICAgICAgcGVyY2VudGFnZSA9IHByb3BvcnRpb24qMTAwKQ0KICANCiAgIyBDcmVhdGUgYSBiYXIgY2hhcnQgd2l0aCB0aGUgY291bnQgb2YgY2hlbWljYWwgY2xhc3NlcyBvbiB0aGUgeC1heGlzIGFuZCBwZXN0aWNpZGVzIGNoZW1pY2FsIGNsYXNzIG9uIHRoZSB5LWF4aXMNCiBmaWczYyA8LSAgZ2dwbG90KGNoZW1pY2FsX2NsYXNzX3BjdCwgYWVzKHggPSByZW9yZGVyKHBlc3RpY2lkZV9jaGVtaWNhbF9jbGFzcyxuKSwgeSA9IHBlcmNlbnRhZ2UpKSArDQogIA0KICAjIEN1c3RvbWl6ZSB0aGUgYXBwZWFyYW5jZSBvZiB0aGUgYmFycw0KICBnZW9tX2JhcihzdGF0ID0gImlkZW50aXR5IiwgZmlsbCA9ICIjNUY4NUFFIiwgY29sb3IgPSAid2hpdGUiLCBhbHBoYSA9IDAuOCwgcG9zaXRpb24gPSBwb3NpdGlvbl9kb2RnZSgwLjkpKSArDQogIA0KICAjIEFkZCBsYWJlbHMgdG8gdGhlIGJhcnMNCiAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IG4pLCBwb3NpdGlvbiA9IHBvc2l0aW9uX3N0YWNrKHZqdXN0ID0gMC41KSwgY29sb3IgPSAid2hpdGUiLCBmb250ZmFjZSA9ICJib2xkIiwgc2l6ZSA9IDUpICsNCiAgDQogICANCiAgIyBBZGQgbGFiZWxzIHRvIHRoZSBiYXJzIGZvciBwZXJjZW50YWdlIA0KIGdlb21fdGV4dChkYXRhID0gY2hlbWljYWxfY2xhc3NfcGN0LCBhZXMobGFiZWwgPSBwYXN0ZTAocm91bmQocGVyY2VudGFnZSwxKSwgIiUiKSksIA0KICAgICAgICAgICAgcG9zaXRpb24gPSBwb3NpdGlvbl9kb2RnZSh3aWR0aCA9IDAuOSksIGhqdXN0ID0gLTAuMiwgc2l6ZSA9IDUsIGNvbG9yID0gImJsYWNrIiwgZm9udGZhY2UgPSAiYm9sZCIpICsNCiAgIA0KICAjIEN1c3RvbWl6ZSB0aGUgYXBwZWFyYW5jZSBvZiB0aGUgcGxvdA0KICBsYWJzKHggPSAiUGVzdGljaWRlIENoZW1pY2FsIENsYXNzIiwgeSA9ICJQZXJjZW50YWdlIikgKw0KICB0aGVtZV9taW5pbWFsKCkgKw0KICB0aGVtZShwYW5lbC5ncmlkLm1ham9yLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgYXhpcy5saW5lLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgYXhpcy50aWNrcy55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgIGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KHNpemUgPSAyMCksDQogICAgYXhpcy50ZXh0LnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1KSwNCiAgICBheGlzLnRpdGxlLnggPSBlbGVtZW50X3RleHQoc2l6ZSA9IDIwKSwNCiAgICBheGlzLnRpdGxlLnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDIwKSwNCiAgICBwbG90LnRpdGxlID0gZWxlbWVudF9ibGFuaygpKSArDQogICAgY29vcmRfZmxpcCgpICsNCiAgICB5bGltKDAsIDQwKQ0KICAgIA0KDQogZmlnM2MNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnM2NfcGVzdGljaWRlX2NoZW1pY2FsX2NvdW50LnBkZiIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDMwMCwgZGV2aWNlID0gY2Fpcm9fcGRmKQ0KYGBgDQoNCiMjZmlnMyBjb21iaW5lZCANCmBgYHtyLCBmaWcuaGVpZ2h0PTEwLCBmaWd3aWR0aCA9IDIwfQ0KIyBDb21iaW5lIHRocmVlIHBsb3RzIGludG8gYSBzaW5nbGUgcGxvdCB1c2luZyBhIGdyaWQgbGF5b3V0DQpmaWczIDwtICgoZmlnM2EpIHwgKGZpZzNiIC8gZmlnM2MpICsgcGxvdF9hbm5vdGF0aW9uKHRhZ19sZXZlbHMgPSAiQSIpKQ0KDQpmaWczDQojZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnM19wZXN0aWNpZGVfY291bnRfY29tYmluZWQucGRmIiksIHdpZHRoID0gMTYsIGhlaWdodCA9IDEwLCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gMzAwLCBkZXZpY2UgPSBjYWlyb19wZGYpDQpgYGANCg0KT2JqZWN0aXZlIDIuIFRvIGludmVzdGlnYXRlIHBlc3RpY2lkZSBleHBvc3VyZSBzdHVkeSBkZXNpZ25zIHN1Y2ggYXMgY29uY2VudHJhdGlvbiBhbmQgZHVyYXRpb24gb2YgZXhwb3N1cmUsIGxpZmUgc3RhZ2VzIG9mIHplYnJhZmlzaCB1c2VkIGluIGVhY2ggc3R1ZHkgYW5kIHRoZSBzYW1wbGUgc2l6ZXMgdXNlZC4NCg0KIyMgZmlnczMgLSB0b3RhbCByb3V0ZSBvZiBleHBvc3VyZQ0KYGBge3J9DQojIENvdW50IHRoZSB0b3RhbCBvY2N1cnJlbmNlIG9mIGVhY2ggcm91dGUgaW4gdGhlIGRhdGEgc2V0DQp0b3RhbF9yb3V0ZV9jb3VudCA8LSBwZG8gJT4lIA0KICAgICAgICAgICAgICAgICAgICAgY291bnQocm91dGUpDQoNCiMgQ291bnQgdGhlIHByb3BvcnRpb24gYW5kIHBlcmNlbnRhZ2Ugb2YgZWFjaCByb3V0ZSBpbiB0aGUgZGF0YSBzZXQNCnJvdXRlX3BjdCA8LSBwZG8gJT4lDQogIGNvdW50KHJvdXRlKSAlPiUNCiAgbXV0YXRlKHByb3BvcnRpb24gPSBuL3N1bSh0b3RhbF9yb3V0ZV9jb3VudCRuKSwNCiAgICAgICAgIHBlcmNlbnRhZ2UgPSBwcm9wb3J0aW9uKjEwMCkNCg0KIyBDcmVhdGUgYSBiYXIgY2hhcnQgd2l0aCB0aGUgcGVyY2VudGFnZSBvZiBwZXN0aWNpZGVzIGJ5IHJvdXRlIG9mIGV4cG9zdXJlIG9uIHRoZSB4LWF4aXMgYW5kIHRoZSByb3V0ZXMgb2YgZXhwb3N1cmUgb24gdGhlIHktYXhpcw0KZmlnczMgPC0gZ2dwbG90KHJvdXRlX3BjdCwgYWVzKHggPSByZW9yZGVyKHJvdXRlLCBwZXJjZW50YWdlKSwgeSA9IHBlcmNlbnRhZ2UpKSArDQogIA0KICAjIEN1c3RvbWl6ZSB0aGUgYXBwZWFyYW5jZSBvZiB0aGUgYmFycw0KICBnZW9tX2JhcihzdGF0ID0gImlkZW50aXR5IiwgZmlsbCA9ICIjNUY4NUFFIiwgY29sb3IgPSAid2hpdGUiLCBhbHBoYSA9IDAuOCwgcG9zaXRpb24gPSBwb3NpdGlvbl9kb2RnZSgwLjkpKSArDQogIA0KICAjIEFkZCBhYnNvbHV0ZSBjb3VudCB0byBiYXJzDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSBuKSwgcG9zaXRpb24gPSBwb3NpdGlvbl9zdGFjayh2anVzdCA9IDAuNSksIGNvbG9yID0gIndoaXRlIiwgZm9udGZhY2UgPSAiYm9sZCIsIHNpemUgPSA1KSArDQogIA0KICAjIEFkZCBwZXJjZW50YWdlIGxhYmVsIHRvIGJhcnMgDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSBwYXN0ZTAocm91bmQocGVyY2VudGFnZSwgMSksICIlIikpLCBoanVzdCA9IC0wLjIsIHZqdXN0ID0gMC41LCBzaXplID0gNSwgZm9udGZhY2UgPSAiYm9sZCIpICsNCiAgDQogICMgQ3VzdG9taXplIHRoZSBhcHBlYXJhbmNlIG9mIHRoZSBwbG90DQogIGxhYnMoeCA9ICJSb3V0ZSBvZiBFeHBvc3VyZSIsIHkgPSAiUGVyY2VudGFnZSIpICsNCiAgdGhlbWVfbWluaW1hbCgpICsNCiAgdGhlbWUocGFuZWwuZ3JpZC5tYWpvci55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgICAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgICAgICBheGlzLnRleHQueSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgICAgICBheGlzLnRpdGxlLnggPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1KSwNCiAgICAgICAgYXhpcy50aXRsZS55ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNSksDQogICAgICAgIHBsb3QudGl0bGUgPSBlbGVtZW50X2JsYW5rKCkpICsNCiAgICAgICAgY29vcmRfZmxpcCgpICsgDQogICAgICAgIHlsaW0oMCwgMTAwKQ0KDQoNCmZpZ3MzDQojIGdnc2F2ZShoZXJlKCJmaWd1cmVzIiwgImZpZ3MzX3Blc3RpY2lkZV9jaGVtaWNhbF9jb3VudC5wZGYiKSwgd2lkdGggPSAxNiwgaGVpZ2h0ID0gMTAsIHVuaXRzID0gImNtIiwgc2NhbGUgPSAyLCBkcGkgPSAzMDAsIGRldmljZSA9IGNhaXJvX3BkZikNCmBgYA0KDQojIE9iamVjdGl2ZSAyLiBUbyBpbnZlc3RpZ2F0ZSB0aGUgc3R1ZHkgZGVzaWducyBlbXBsb3llZCB0byBhc3Nlc3MgdGhlIGVmZmVjdHMgb2YgcGVzdGljaWRlIGV4cG9zdXJlIG9uIHRoZSBiZWhhdmlvdXIgb2Ygbm9uLWxhcnZhbCB6ZWJyYWZpc2guDQoNCm1ha2luZyBkb3NhZ2VzIGNvbnNpc3RlbnQgZm9yIGRvc2FnZSBjb21wYXJpc29ucw0KYGBge3J9DQpwZG8gPC0gcGRvICU+JQ0KICAjIFJlbW92ZSByb3dzIHdpdGggTkEgdmFsdWVzDQogIGZpbHRlcighaXMubmEoZG9zYWdlX2xvd2VzdCkpICU+JQ0KICAjIENvbnZlcnQgZG9zYWdlX2xvd2VzdCB0byBudW1lcmljIGFuZCBkb3NhZ2VfbG93ZXN0X3VuaXQgdG8gY2hhcmFjdGVyDQogIG11dGF0ZShkb3NhZ2VfbG93ZXN0ID0gYXMubnVtZXJpYyhkb3NhZ2VfbG93ZXN0KSwNCiAgICAgICAgIGRvc2FnZV9sb3dlc3RfdW5pdCA9IGFzLmNoYXJhY3Rlcihkb3NhZ2VfbG93ZXN0X3VuaXQpLA0KICAgICAgICAgDQogICAgICAgICAjIFN0YW5kYXJkaXplIGRvc2FnZV91bml0X2NvbnNpc3RlbnQgYmFzZWQgb24gZG9zYWdlX2xvd2VzdF91bml0DQogICAgICAgICBkb3NhZ2VfdW5pdF9jb25zaXN0ZW50ID0gY2FzZV93aGVuKA0KICAgICAgICAgICBkb3NhZ2VfbG93ZXN0X3VuaXQgPT0gIm1nL0wiIH4gInVnL0wiLA0KICAgICAgICAgICBkb3NhZ2VfbG93ZXN0X3VuaXQgPT0gIm5nL0wiIH4gInVnL0wiLA0KICAgICAgICAgICBkb3NhZ2VfbG93ZXN0X3VuaXQgPT0gImcvTCIgfiAidWcvTCIsDQogICAgICAgICAgIGRvc2FnZV9sb3dlc3RfdW5pdCA9PSAicHBiIiB+ICJ1Zy9MIiwNCiAgICAgICAgICAgZG9zYWdlX2xvd2VzdF91bml0ID09ICJwcG0iIH4gInVnL0wiLA0KICAgICAgICAgICBUUlVFIH4gZG9zYWdlX2xvd2VzdF91bml0KSwNCiAgICAgICAgIA0KICAgICAgICAgIyBDb252ZXJ0IGRvc2FnZV9sb3dlc3QgdG8gdWcvTCBiYXNlZCBvbiBkb3NhZ2VfbG93ZXN0X3VuaXQNCiAgICAgICAgIGRvc2FnZV9sb3dlc3RfY29udmVydF91Z0wgPSBjYXNlX3doZW4oDQogICAgICAgICAgIGRvc2FnZV9sb3dlc3RfdW5pdCA9PSAibWcvTCIgfiBkb3NhZ2VfbG93ZXN0ICogMTAwMCwNCiAgICAgICAgICAgZG9zYWdlX2xvd2VzdF91bml0ID09ICJuZy9MIiB+IGRvc2FnZV9sb3dlc3QgLyAxMDAwLA0KICAgICAgICAgICBkb3NhZ2VfbG93ZXN0X3VuaXQgPT0gImcvTCIgfiBkb3NhZ2VfbG93ZXN0LzEwMDAwMDAsDQogICAgICAgICAgIGRvc2FnZV9sb3dlc3RfdW5pdCA9PSAicHBiIiB+IGRvc2FnZV9sb3dlc3QgKiAxMDAwLA0KICAgICAgICAgICBkb3NhZ2VfbG93ZXN0X3VuaXQgPT0gInBwbSIgfiBkb3NhZ2VfbG93ZXN0LzEwMDAsDQogICAgICAgICAgIFRSVUUgfiBkb3NhZ2VfbG93ZXN0KSwNCiAgICAgICAgIA0KICAgICAgICAgIyBDb252ZXJ0IGRvc2FnZV9oaWdoZXN0IHRvIG51bWVyaWMgYW5kIGRvc2FnZV9oaWdoZXN0X3VuaXQgdG8gY2hhcmFjdGVyDQogICAgICAgICBkb3NhZ2VfaGlnaGVzdCA9IGFzLm51bWVyaWMoZG9zYWdlX2hpZ2hlc3QpLA0KICAgICAgICAgDQogICAgICAgICAjIENvbnZlcnQgZG9zYWdlX2hpZ2hlc3QgdG8gdWcvTCBiYXNlZCBvbiBkb3NhZ2VfaGlnaGVzdF91bml0DQogICAgICAgICBkb3NhZ2VfaGlnaGVzdF9jb252ZXJ0X3VnTCA9IGNhc2Vfd2hlbigNCiAgICAgICAgICAgZG9zYWdlX2hpZ2hlc3RfdW5pdCA9PSAibWcvTCIgfiBkb3NhZ2VfaGlnaGVzdCAqIDEwMDAsDQogICAgICAgICAgIGRvc2FnZV9oaWdoZXN0X3VuaXQgPT0gIm5nL0wiIH4gZG9zYWdlX2hpZ2hlc3QgLyAxMDAwLA0KICAgICAgICAgICBkb3NhZ2VfaGlnaGVzdF91bml0ID09ICJnL0wiIH4gZG9zYWdlX2hpZ2hlc3QvMTAwMDAwMCwNCiAgICAgICAgICAgZG9zYWdlX2hpZ2hlc3RfdW5pdCA9PSAicHBiIiB+IGRvc2FnZV9oaWdoZXN0ICogMTAwMCwNCiAgICAgICAgICAgZG9zYWdlX2hpZ2hlc3RfdW5pdCA9PSAicHBtIiB+IGRvc2FnZV9oaWdoZXN0LzEwMDAsDQogICAgICAgICAgIFRSVUUgfiBkb3NhZ2VfaGlnaGVzdCkpDQpgYGANCg0KDQojIyBmaWc0IC0gY29tcGFyaXNvbiBvZiBsb3dlc3QgYW5kIGhpZ2hlc3QgZG9zYWdlcyBpbiB3YXRlcmJvdXJuZSBleHBvc3VyZSBtZXRob2RzDQpgYGB7ciB9DQojIFBpdm90IHRoZSBkYXRhc2V0IHRvIGEgbG9uZ2VyIGZvcm1hdCwgc2VwYXJhdGluZyBvdXQgdGhlIGRvc2FnZSB0eXBlIChsb3dlc3Qgb3IgaGlnaGVzdCkgYW5kIHZhbHVlIGludG8gc2VwYXJhdGUgY29sdW1ucw0KcGRvX3dhdGVyYm91cm5lIDwtIHBkbyAlPiUNCiAgcGl2b3RfbG9uZ2VyKGNvbHMgPSBjKGRvc2FnZV9sb3dlc3QsIGRvc2FnZV9oaWdoZXN0KSwgDQogICAgICAgICAgICAgICBuYW1lc190byA9ICJkb3NhZ2VfdHlwZSIsDQogICAgICAgICAgICAgICB2YWx1ZXNfdG8gPSAiZG9zYWdlX3ZhbHVlIikgJT4lIA0KICANCiAgIyBGaWx0ZXIgZm9yIHdhdGVyYm9ybmUgcm91dGVzIHdpdGggY29uc2lzdGVudCBkb3NhZ2UgdW5pdHMgYW5kIGEgZG9zYWdlIG51bWJlciBncmVhdGVyIHRoYW4gMQ0KICBmaWx0ZXIocm91dGUgPT0gIndhdGVyYm91cm5lIiwgZG9zYWdlX3VuaXRfY29uc2lzdGVudCA9PSAidWcvTCIsDQogICAgICAgICBkb3NhZ2VfbnVtYmVyID4gMSkgJT4lICANCiAgDQogICMgUmVuYW1lIHRoZSBkb3NhZ2UgdHlwZSBjb2x1bW4gZm9yIGJldHRlciBsYWJlbGluZyBpbiB0aGUgcGxvdA0KICBtdXRhdGUoZG9zYWdlX3R5cGUgPSBpZl9lbHNlKGRvc2FnZV90eXBlID09ICJkb3NhZ2VfbG93ZXN0IiwgIkxvd2VzdCBEb3NhZ2UgRXhwb3NlZCIsICJIaWdoZXN0IERvc2FnZSBFeHBvc2VkIikpIA0KDQojIENyZWF0ZSB0aGUgcGxvdCB3aXRoIGRvc2FnZSB0eXBlIChpLmUuLCBsb3dlc3Qgb3IgaGlnaGVzdCBkb3NlKSBvbiB0aGUgeC1heGlzIGFuZCBkb3NhZ2UgdmFsdWUgb24gdGhlIHktYXhpcw0KZmlnNCA8LSBnZ3Bsb3QocGRvX3dhdGVyYm91cm5lLCBhZXMoeCA9IGRvc2FnZV90eXBlLCB5ID0gbG9nKGRvc2FnZV92YWx1ZSkpKSArDQogIA0KICAjIEFkZCBhIHZpb2xpbiBwbG90IA0KICBnZW9tX3Zpb2xpbihmaWxsID0gIiM1Rjg1QUUiLCBhbHBoYSA9MC4yLCBjb2xvciA9IE5BLCB0cmltID0gRkFMU0UpICsNCg0KICAjIEFkZCBhIGJveHBsb3QgDQogIGdlb21fYm94cGxvdCh3aWR0aCA9IDAuMDUsIGZpbGwgPSAid2hpdGUiLCBjb2xvciA9ICIjNUY4NUFFIiwgb3V0bGllci5zaGFwZSA9IE5BKSArDQoNCiAgIyBBZGQgaml0dGVyZWQgcG9pbnRzIC4NCiAgZ2VvbV9qaXR0ZXIod2lkdGggPSAwLjEsIGhlaWdodCA9IDAuMDUsIGNvbG9yID0gIiM1Rjg1QUUiLCBhbHBoYSA9IDAuOCkgKw0KDQogIA0KICAjIEFkZCBheGlzIGFuZCBwbG90IGxhYmVscw0KICBsYWJzKHRpdGxlID0gIldhdGVyYm9ybmUgRXhwb3N1cmVzIGJ5IERvc2FnZSBpbiB1Zy9MIiwgeCA9ICJXYXRlcmJvcm5lIEV4cG9zdXJlIiwgeSA9ICJsb2coRG9zYWdlICh1Zy9MKSkiKSArDQogIA0KICAjIEN1c3RvbWl6ZSBwbG90IHRoZW1lDQogIHRoZW1lX21pbmltYWwoKSArDQogIHRoZW1lKHBhbmVsLmdyaWQubWFqb3IueSA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICBheGlzLmxpbmUueSA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICBheGlzLnRpY2tzLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1KSwNCiAgICBheGlzLnRleHQueSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgIGF4aXMudGl0bGUueCA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgIGF4aXMudGl0bGUueSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgIHBsb3QudGl0bGUgPSBlbGVtZW50X2JsYW5rKCkpDQoNCiBmaWc0DQpnZ3NhdmUoaGVyZSgiZmlndXJlcyIsICJmaWc0X3Blc3RpY2lkZV9kb3NhZ2UucGRmIiksIHdpZHRoID0gMTYsIGhlaWdodCA9IDEwLCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gMzAwLCBkZXZpY2UgPSBjYWlyb19wZGYpDQpgYGANCg0KIyMgZmlnczQgLSBjb21wYXJpc29uIG9mIGxvd2VzdCBhbmQgaGlnaGVzdCBkb3NhZ2VzIG9mIHdhdGVyYm91cm5lIGV4cG9zdXJlIHRvIGRlbHRhbWV0aHJpbg0KYGBge3J9DQojIFBpdm90IHRoZSBkYXRhIHNldCB0byBhIGxvbmdlciBmb3JtYXQsIHNlcGFyYXRpbmcgb3V0IHRoZSBkb3NhZ2UgdHlwZSAobG93ZXN0IG9yIGhpZ2hlc3QpIGFuZCB2YWx1ZSBpbnRvIHNlcGFyYXRlIGNvbHVtbnMNCnBkb193YXRlcmJvdXJuZV9kZWx0YW1ldGhyaW4gPC0gcGRvICU+JQ0KICBwaXZvdF9sb25nZXIoY29scyA9IGMoZG9zYWdlX2xvd2VzdCwgZG9zYWdlX2hpZ2hlc3QpLCANCiAgICAgICAgICAgICAgIG5hbWVzX3RvID0gImRvc2FnZV90eXBlIiwNCiAgICAgICAgICAgICAgIHZhbHVlc190byA9ICJkb3NhZ2VfdmFsdWUiKSAlPiUgDQogIA0KICAjIEZpbHRlciBmb3Igd2F0ZXJib3JuZSByb3V0ZXMgd2l0aCBjb25zaXN0ZW50IGRvc2FnZSB1bml0cyBhbmQgb25seSBkZWx0YW1ldGhyaW4gcGVzdGljaWRlIGludmVzdGlnYXRlZA0KICBmaWx0ZXIocm91dGUgPT0gIndhdGVyYm91cm5lIiwgZG9zYWdlX3VuaXRfY29uc2lzdGVudCA9PSAidWcvTCIsIHBlc3RpY2lkZV9pbnZlc3RpZ2F0ZWQgPT0gImRlbHRhbWV0aHJpbiIpICU+JSANCg0KICAjIFJlbmFtZSB0aGUgZG9zYWdlIHR5cGUgY29sdW1uIGZvciBiZXR0ZXIgbGFiZWxpbmcgaW4gdGhlIHBsb3QNCiAgbXV0YXRlKGRvc2FnZV90eXBlID0gaWZfZWxzZShkb3NhZ2VfdHlwZSA9PSAiZG9zYWdlX2xvd2VzdCIsICJMb3dlc3QgRG9zYWdlIEV4cG9zZWQiLCAiSGlnaGVzdCBEb3NhZ2UgRXhwb3NlZCIpKQ0KDQojIENyZWF0ZSB0aGUgcGxvdCB3aXRoIGRvc2FnZSB0eXBlIChpLmUuLCBsb3dlc3Qgb3IgaGlnaGVzdCBkb3NlKSBvbiB0aGUgeC1heGlzIGFuZCBkb3NhZ2UgdmFsdWUgb24gdGhlIHktYXhpcw0KZmlnczQgPC0gZ2dwbG90KHBkb193YXRlcmJvdXJuZV9kZWx0YW1ldGhyaW4sIGFlcyh4ID0gZG9zYWdlX3R5cGUsIHkgPSBsb2coZG9zYWdlX3ZhbHVlKSkpICsNCiAgDQogICMgQWRkIGEgdmlvbGluIHBsb3QgDQogIGdlb21fdmlvbGluKGZpbGwgPSAiIzVGODVBRSIsIGFscGhhID0gMC4yLCBjb2xvciA9IE5BLCB0cmltID0gRkFMU0UpICsNCiAgDQogICMgQWRkIGEgYm94cGxvdCANCiAgZ2VvbV9ib3hwbG90KHdpZHRoID0gMC4wNSwgZmlsbCA9ICJ3aGl0ZSIsIGNvbG9yID0gIiM1Rjg1QUUiLCBvdXRsaWVyLnNoYXBlID0gTkEpICsNCiAgDQogICMgQWRkIGppdHRlcmVkIHBvaW50cw0KICBnZW9tX2ppdHRlcih3aWR0aCA9IDAuMSwgaGVpZ2h0ID0gMC4wNSwgY29sb3IgPSAiIzVGODVBRSIsIGFscGhhID0gMC41KSArDQogIA0KICAjIEFkZCBheGlzIGFuZCBwbG90IGxhYmVscw0KICBsYWJzKHRpdGxlID0gIldhdGVyYm9ybmUgRXhwb3N1cmVzIG9mIERlbHRhbWV0aHJpbiBieSBEb3NhZ2UgaW4gdWcvTCIsIHggPSAiV2F0ZXJib3VybmUgZXhwb3N1cmUiLCB5ID0gImxvZyhEb3NhZ2UgKHVnL0wpKSIpICsNCiAgDQogICMgQ3VzdG9taXplIHBsb3QgdGhlbWUNCiAgdGhlbWVfbWluaW1hbCgpICsNCiAgdGhlbWUocGFuZWwuZ3JpZC5tYWpvci55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgICAgICBheGlzLmxpbmUueSA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICAgICAgYXhpcy50aWNrcy55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgICAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgICAgICBheGlzLnRleHQueSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUsIGhqdXN0ID0gMSksDQogICAgICAgIGF4aXMudGl0bGUueCA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgICAgICBheGlzLnRpdGxlLnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1KSwNCiAgICAgICAgcGxvdC50aXRsZSA9IGVsZW1lbnRfYmxhbmsoKSkNCg0KIyBmaWdzNA0KDQpgYGANCg0KIyMgZmlnczUgLSBjb21wYXJpc29uIG9mIGxvd2VzdCBhbmQgaGlnaGVzdCBkb3NhZ2VzIG9mIHdhdGVyYm91cm5lIGV4cG9zdXJlIHRvIHJvdGVub25lDQpgYGB7cn0NCiMgUGl2b3QgdGhlIGRhdGEgc2V0IHRvIGEgbG9uZ2VyIGZvcm1hdCwgc2VwYXJhdGluZyBvdXQgdGhlIGRvc2FnZSB0eXBlIChsb3dlc3Qgb3IgaGlnaGVzdCkgYW5kIHZhbHVlIGludG8gc2VwYXJhdGUgY29sdW1ucw0KcGRvX3dhdGVyYm91cm5lX3JvdGVub25lIDwtIHBkbyAlPiUNCiAgcGl2b3RfbG9uZ2VyKGNvbHMgPSBjKGRvc2FnZV9sb3dlc3QsIGRvc2FnZV9oaWdoZXN0KSwgDQogICAgICAgICAgICAgICBuYW1lc190byA9ICJkb3NhZ2VfdHlwZSIsDQogICAgICAgICAgICAgICB2YWx1ZXNfdG8gPSAiZG9zYWdlX3ZhbHVlIikgJT4lIA0KICANCiAgIyBGaWx0ZXIgZm9yIHdhdGVyYm9ybmUgcm91dGVzIHdpdGggY29uc2lzdGVudCBkb3NhZ2UgdW5pdHMgYW5kIG9ubHkgcm90ZW5vbmUgcGVzdGljaWRlIGludmVzdGlnYXRlZA0KICBmaWx0ZXIocm91dGUgPT0gIndhdGVyYm91cm5lIiwgZG9zYWdlX3VuaXRfY29uc2lzdGVudCA9PSAidWcvTCIsIHBlc3RpY2lkZV9pbnZlc3RpZ2F0ZWQgPT0gInJvdGVub25lIikgJT4lIA0KICANCiAgIyBSZW5hbWUgdGhlIGRvc2FnZSB0eXBlIGNvbHVtbiBmb3IgYmV0dGVyIGxhYmVsaW5nIGluIHRoZSBwbG90DQogIG11dGF0ZShkb3NhZ2VfdHlwZSA9IGlmX2Vsc2UoZG9zYWdlX3R5cGUgPT0gImRvc2FnZV9sb3dlc3QiLCAiTG93ZXN0IERvc2FnZSBFeHBvc2VkIiwgIkhpZ2hlc3QgRG9zYWdlIEV4cG9zZWQiKSkNCg0KIyBDcmVhdGUgdGhlIHBsb3Qgd2l0aCBkb3NhZ2UgdHlwZSAoaS5lLiwgbG93ZXN0IG9yIGhpZ2hlc3QgZG9zZSkgb24gdGhlIHgtYXhpcyBhbmQgZG9zYWdlIHZhbHVlIG9uIHRoZSB5LWF4aXMNCmZpZ3M1IDwtIGdncGxvdChwZG9fd2F0ZXJib3VybmVfcm90ZW5vbmUsIGFlcyh4ID0gZG9zYWdlX3R5cGUsIHkgPSBsb2coZG9zYWdlX3ZhbHVlKSkpICsNCiAgDQogICMgQWRkIGEgdmlvbGluIHBsb3QgDQogIGdlb21fdmlvbGluKGZpbGwgPSAiIzVGODVBRSIsIGFscGhhID0gMC4zLCB0cmltID0gRkFMU0UsIGNvbG9yID0gTkEpICsNCiAgDQogICMgQWRkIGEgYm94cGxvdCANCiAgZ2VvbV9ib3hwbG90KHdpZHRoID0gMC4wNSwgZmlsbCA9ICJ3aGl0ZSIsIGNvbG9yID0gIiM1Rjg1QUUiLCBvdXRsaWVyLnNoYXBlID0gTkEpICsNCiAgDQogICMgQWRkIGppdHRlcmVkIHBvaW50cw0KICBnZW9tX2ppdHRlcih3aWR0aCA9IDAuMSwgaGVpZ2h0ID0gMC4wNSwgY29sb3IgPSAiIzVGODVBRSIsIGFscGhhID0gMC41KSArDQogIA0KICAjIEFkZCBheGlzIGFuZCBwbG90IGxhYmVscw0KICBsYWJzKHRpdGxlID0gIldhdGVyYm9ybmUgRXhwb3N1cmVzIG9mIFJvdGVub25lIGJ5IERvc2FnZSBpbiB1Zy9MIiwgeCA9ICJXYXRlcmJvdXJuZSBleHBvc3VyZSIsIHkgPSAibG9nKERvc2FnZSAodWcvTCkpIikgKw0KICANCiAgIyBDdXN0b21pemUgcGxvdCB0aGVtZQ0KICB0aGVtZV9taW5pbWFsKCkgKw0KICB0aGVtZShwYW5lbC5ncmlkLm1ham9yLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgICAgIGF4aXMubGluZS55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgICAgICBheGlzLnRpY2tzLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgICAgIGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNSksDQogICAgICAgIGF4aXMudGV4dC55ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNSwgaGp1c3QgPSAxKSwNCiAgICAgICAgYXhpcy50aXRsZS54ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNSksDQogICAgICAgIGF4aXMudGl0bGUueSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgICAgICBwbG90LnRpdGxlID0gZWxlbWVudF9ibGFuaygpKQ0KZmlnczUNCg0KYGBgDQoNCiMjIGZpZ3M2IC0gY29tcGFyaXNvbiBvZiBsb3dlc3QgYW5kIGhpZ2hlc3QgZG9zYWdlcyBvZiB3YXRlcmJvdXJuZSBleHBvc3VyZSBhdHJhemluZQ0KDQpgYGB7cn0NCiMgUGl2b3QgdGhlIGRhdGEgc2V0IHRvIGEgbG9uZ2VyIGZvcm1hdCwgc2VwYXJhdGluZyBvdXQgdGhlIGRvc2FnZSB0eXBlIChsb3dlc3Qgb3IgaGlnaGVzdCkgYW5kIHZhbHVlIGludG8gc2VwYXJhdGUgY29sdW1ucw0KcGRvX3dhdGVyYm91cm5lX2F0cmF6aW5lIDwtIHBkbyAlPiUNCiAgcGl2b3RfbG9uZ2VyKGNvbHMgPSBjKGRvc2FnZV9sb3dlc3QsIGRvc2FnZV9oaWdoZXN0KSwgDQogICAgICAgICAgICAgICBuYW1lc190byA9ICJkb3NhZ2VfdHlwZSIsDQogICAgICAgICAgICAgICB2YWx1ZXNfdG8gPSAiZG9zYWdlX3ZhbHVlIikgJT4lIA0KDQogICMgRmlsdGVyIGZvciB3YXRlcmJvcm5lIHJvdXRlcyB3aXRoIGNvbnNpc3RlbnQgZG9zYWdlIHVuaXRzIGFuZCBvbmx5IGF0cmF6aW5lIHBlc3RpY2lkZSBpbnZlc3RpZ2F0ZWQNCiAgZmlsdGVyKHJvdXRlID09ICJ3YXRlcmJvdXJuZSIsIGRvc2FnZV91bml0X2NvbnNpc3RlbnQgPT0gInVnL0wiLCBwZXN0aWNpZGVfaW52ZXN0aWdhdGVkID09ICJhdHJhemluZSIpICU+JSAgDQoNCiAgIyBSZW5hbWUgdGhlIGRvc2FnZSB0eXBlIGNvbHVtbiBmb3IgYmV0dGVyIGxhYmVsaW5nIGluIHRoZSBwbG90DQogIG11dGF0ZShkb3NhZ2VfdHlwZSA9IGlmX2Vsc2UoZG9zYWdlX3R5cGUgPT0gImRvc2FnZV9sb3dlc3QiLCAiTG93ZXN0IERvc2FnZSBFeHBvc2VkIiwgIkhpZ2hlc3QgRG9zYWdlIEV4cG9zZWQiKSkNCg0KIyBDcmVhdGUgdGhlIHBsb3Qgd2l0aCBkb3NhZ2UgdHlwZSAoaS5lLiwgbG93ZXN0IG9yIGhpZ2hlc3QgZG9zZSkgb24gdGhlIHgtYXhpcyBhbmQgZG9zYWdlIHZhbHVlIG9uIHRoZSB5LWF4aXMNCmZpZ3M2IDwtIGdncGxvdChwZG9fd2F0ZXJib3VybmVfYXRyYXppbmUsIGFlcyh4ID0gZG9zYWdlX3R5cGUsIHkgPSBsb2coZG9zYWdlX3ZhbHVlKSkpICsNCg0KICAjIEFkZCBhIHZpb2xpbiBwbG90IA0KICBnZW9tX3Zpb2xpbihmaWxsID0gIiM1Rjg1QUUiLCBhbHBoYSA9IDAuMywgdHJpbSA9IEZBTFNFLCBjb2xvciA9ICJOQSIpICsNCg0KICAjIEFkZCBhIGJveHBsb3QgDQogIGdlb21fYm94cGxvdCh3aWR0aCA9IDAuMDUsIGZpbGwgPSAid2hpdGUiLCBjb2xvciA9ICIjNUY4NUFFIiwgb3V0bGllci5zaGFwZSA9IE5BKSArDQoNCiAgIyBBZGQgaml0dGVyZWQgcG9pbnRzDQogIGdlb21faml0dGVyKHdpZHRoID0gMC4xLCBoZWlnaHQgPSAwLjA1LCBjb2xvciA9ICIjNUY4NUFFIiwgYWxwaGEgPSAwLjUpICsNCg0KICAjIEFkZCBheGlzIGFuZCBwbG90IGxhYmVscw0KICBsYWJzKHRpdGxlID0gIldhdGVyYm9ybmUgRXhwb3N1cmVzIG9mIEF0cmF6aW5lIGJ5IERvc2FnZSBpbiB1Zy9MIiwgeCA9ICJXYXRlcmJvcm5lIGV4cG9zdXJlIiwgeSA9ICJsb2coRG9zYWdlICh1Zy9MKSkiKSAgKw0KDQogICMgQ3VzdG9taXplIHBsb3QgdGhlbWUNCiAgdGhlbWVfbWluaW1hbCgpICsNCiAgdGhlbWUocGFuZWwuZ3JpZC5tYWpvci55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgIGF4aXMubGluZS55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgIGF4aXMudGlja3MueSA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgIGF4aXMudGV4dC55ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNSwgaGp1c3QgPSAxKSwNCiAgICBheGlzLnRpdGxlLnggPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1KSwNCiAgICBheGlzLnRpdGxlLnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1KSwNCiAgICBwbG90LnRpdGxlID0gZWxlbWVudF9ibGFuaygpKQ0KDQoNCmZpZ3M2DQoNCmBgYA0KDQojIyBmaWdzNyAtIGNvbXBhcmlzb24gdG8gbG93ZXN0IGFuZCBoaWdoZXN0IGRvc2FnZXMgb2Ygd2F0ZXJib3VybmUgZXhwb3N1cmUgdG8gZ2x5cGhvc2F0ZQ0KYGBge3J9DQojIFBpdm90IHRoZSBkYXRhIHNldCB0byBhIGxvbmdlciBmb3JtYXQsIHNlcGFyYXRpbmcgb3V0IHRoZSBkb3NhZ2UgdHlwZSAobG93ZXN0IG9yIGhpZ2hlc3QpIGFuZCB2YWx1ZSBpbnRvIHNlcGFyYXRlIGNvbHVtbnMNCnBkb193YXRlcmJvdXJuZV9nbHlwaG9zYXRlIDwtIHBkbyAlPiUNCiAgcGl2b3RfbG9uZ2VyKGNvbHMgPSBjKGRvc2FnZV9sb3dlc3QsIGRvc2FnZV9oaWdoZXN0KSwgDQogICAgICAgICAgICAgICBuYW1lc190byA9ICJkb3NhZ2VfdHlwZSIsDQogICAgICAgICAgICAgICB2YWx1ZXNfdG8gPSAiZG9zYWdlX3ZhbHVlIikgJT4lIA0KICANCiAgIyBGaWx0ZXIgZm9yIHdhdGVyYm9ybmUgcm91dGVzIHdpdGggY29uc2lzdGVudCBkb3NhZ2UgdW5pdHMgYW5kIG9ubHkgZ2x5cGhvc2F0ZSBwZXN0aWNpZGUgaW52ZXN0aWdhdGVkDQogIGZpbHRlcihyb3V0ZSA9PSAid2F0ZXJib3VybmUiLCBkb3NhZ2VfdW5pdF9jb25zaXN0ZW50ID09ICJ1Zy9MIiwgcGVzdGljaWRlX2ludmVzdGlnYXRlZCA9PSAiZ2x5cGhvc2F0ZSIpICU+JSAgDQogIA0KICAjIFJlbmFtZSB0aGUgZG9zYWdlIHR5cGUgY29sdW1uIGZvciBiZXR0ZXIgbGFiZWxpbmcgaW4gdGhlIHBsb3QNCiAgbXV0YXRlKGRvc2FnZV90eXBlID0gaWZfZWxzZShkb3NhZ2VfdHlwZSA9PSAiZG9zYWdlX2xvd2VzdCIsICJMb3dlc3QgRG9zYWdlIEV4cG9zZWQiLCAiSGlnaGVzdCBEb3NhZ2UgRXhwb3NlZCIpKQ0KDQoNCiMgQ3JlYXRlIHRoZSBwbG90IHdpdGggZG9zYWdlIHR5cGUgKGkuZS4sIGxvd2VzdCBvciBoaWdoZXN0IGRvc2UpIG9uIHRoZSB4LWF4aXMgYW5kIGRvc2FnZSB2YWx1ZSBvbiB0aGUgeS1heGlzDQpmaWdzNyA8LSBnZ3Bsb3QocGRvX3dhdGVyYm91cm5lX2dseXBob3NhdGUsIGFlcyh4ID0gZG9zYWdlX3R5cGUsIHkgPSBsb2coZG9zYWdlX3ZhbHVlKSkpICsNCiAgDQogICMgQWRkIGEgdmlvbGluIHBsb3QNCiBnZW9tX3Zpb2xpbihmaWxsID0gIiM1Rjg1QUUiLCBhbHBoYSA9IDAuMywgdHJpbSA9IEZBTFNFLCBjb2xvciA9IE5BKSArDQogIA0KICAjIEFkZCBhIGJveHBsb3QNCiAgZ2VvbV9ib3hwbG90KHdpZHRoID0gMC4wNSwgZmlsbCA9ICJ3aGl0ZSIsIGNvbG9yID0gIiM1Rjg1QUUiLCBvdXRsaWVyLnNoYXBlID0gTkEpICsNCiAgDQogICMgQWRkIGppdHRlcmVkIHBvaW50cw0KICBnZW9tX2ppdHRlcih3aWR0aCA9IDAuMSwgaGVpZ2h0ID0gMC4wNSwgY29sb3IgPSAiIzVGODVBRSIsIGFscGhhID0gMC41KSArDQogIA0KICAjIEFkZCBheGlzIGFuZCBwbG90IGxhYmVscw0KICBsYWJzKHRpdGxlID0gIldhdGVyYm9ybmUgRXhwb3N1cmVzIG9mIEdseXBob3NhdGUgYnkgRG9zYWdlIGluIHVnL0wiLCB4ID0gIldhdGVyYm91cm5lIGV4cG9zdXJlIiwgeSA9ICJsb2coRG9zYWdlICh1Zy9MKSkiKSAgKw0KICANCiAgIyBDdXN0b21pemUgcGxvdCB0aGVtZQ0KICB0aGVtZV9taW5pbWFsKCkgKw0KICB0aGVtZShwYW5lbC5ncmlkLm1ham9yLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgYXhpcy5saW5lLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgYXhpcy50aWNrcy55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgIGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNSksDQogICAgYXhpcy50ZXh0LnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1LCBoanVzdCA9IDEpLA0KICAgIGF4aXMudGl0bGUueCA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgIGF4aXMudGl0bGUueSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgIHBsb3QudGl0bGUgPSBlbGVtZW50X2JsYW5rKCkpDQpmaWdzNw0KDQpgYGANCg0KIyMgZmlnczggIC0gY29tcGFyaXNvbiB0byBsb3dlc3QgYW5kIGhpZ2hlc3QgZG9zYWdlcyBvZiB3YXRlcmJvdXJuZSBleHBvc3VyZSB0byBjaGxvcHlyaWZvDQpgYGB7cn0NCiMgUGl2b3QgdGhlIGRhdGEgc2V0IHRvIGEgbG9uZ2VyIGZvcm1hdCwgc2VwYXJhdGluZyBvdXQgdGhlIGRvc2FnZSB0eXBlIChsb3dlc3Qgb3IgaGlnaGVzdCkgYW5kIHZhbHVlIGludG8gc2VwYXJhdGUgY29sdW1ucw0KcGRvX3dhdGVyYm91cm5lX2NobG9yb3B5cmlmbyA8LSBwZG8gJT4lDQogIHBpdm90X2xvbmdlcihjb2xzID0gYyhkb3NhZ2VfbG93ZXN0LCBkb3NhZ2VfaGlnaGVzdCksIA0KICAgICAgICAgICAgICAgbmFtZXNfdG8gPSAiZG9zYWdlX3R5cGUiLA0KICAgICAgICAgICAgICAgdmFsdWVzX3RvID0gImRvc2FnZV92YWx1ZSIpICU+JSANCiAgDQogICMgRmlsdGVyIGZvciB3YXRlcmJvcm5lIHJvdXRlcyB3aXRoIGNvbnNpc3RlbnQgZG9zYWdlIHVuaXRzIGFuZCBvbmx5IGdseXBob3NhdGUgcGVzdGljaWRlIGludmVzdGlnYXRlZA0KICBmaWx0ZXIocm91dGUgPT0gIndhdGVyYm91cm5lIiwgZG9zYWdlX3VuaXRfY29uc2lzdGVudCA9PSAidWcvTCIsIHBlc3RpY2lkZV9pbnZlc3RpZ2F0ZWQgPT0gImNobG9yb3B5cmlmbyIpICU+JSAgDQogIA0KICAjIFJlbmFtZSB0aGUgZG9zYWdlIHR5cGUgY29sdW1uIGZvciBiZXR0ZXIgbGFiZWxpbmcgaW4gdGhlIHBsb3QNCiAgbXV0YXRlKGRvc2FnZV90eXBlID0gaWZfZWxzZShkb3NhZ2VfdHlwZSA9PSAiZG9zYWdlX2xvd2VzdCIsICJMb3dlc3QgRG9zYWdlIEV4cG9zZWQiLCAiSGlnaGVzdCBEb3NhZ2UgRXhwb3NlZCIpKQ0KDQojIENyZWF0ZSB0aGUgcGxvdCB3aXRoIGRvc2FnZSB0eXBlIChpLmUuLCBsb3dlc3Qgb3IgaGlnaGVzdCBkb3NlKSBvbiB0aGUgeC1heGlzIGFuZCBkb3NhZ2UgdmFsdWUgb24gdGhlIHktYXhpcw0KZmlnczggPC0gZ2dwbG90KHBkb193YXRlcmJvdXJuZV9jaGxvcm9weXJpZm8sIGFlcyh4ID0gZG9zYWdlX3R5cGUsIHkgPSBsb2coZG9zYWdlX3ZhbHVlKSkpICsNCiAgDQogICMgQWRkIGEgdmlvbGluIHBsb3QNCiAgZ2VvbV92aW9saW4oZmlsbCA9ICIjNUY4NUFFIiwgYWxwaGEgPSAwLjMsIHRyaW0gPSBGQUxTRSwgY29sb3IgPSBOQSkgKw0KICANCiAgIyBBZGQgYSBib3hwbG90DQogIGdlb21fYm94cGxvdCh3aWR0aCA9IDAuMDUsIGZpbGwgPSAid2hpdGUiLCBjb2xvciA9ICIjNUY4NUFFIiwgb3V0bGllci5zaGFwZSA9IE5BKSArDQogIA0KICAjIEFkZCBqaXR0ZXJlZCBwb2ludHMNCiAgZ2VvbV9qaXR0ZXIod2lkdGggPSAwLjEsIGhlaWdodCA9IDAuMDUsIGNvbG9yID0gIiM1Rjg1QUUiLCBhbHBoYSA9IDAuNSkgKw0KDQogICMgQWRkIGF4aXMgYW5kIHBsb3QgbGFiZWxzDQogIGxhYnModGl0bGUgPSAiV2F0ZXJib3JuZSBFeHBvc3VyZXMgb2YgQ2hsb3JvcHlyaWZvcyBieSBEb3NhZ2UgaW4gdWcvTCIsIHggPSAiV2F0ZXJib3VybmUgZXhwb3N1cmUiLCB5ID0gImxvZyhEb3NhZ2UgKHVnL0wpKSIpICArDQogIA0KICAjIEN1c3RvbWl6ZSBwbG90IHRoZW1lDQogIHRoZW1lX21pbmltYWwoKSArDQogIHRoZW1lKHBhbmVsLmdyaWQubWFqb3IueSA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICBheGlzLmxpbmUueSA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICBheGlzLnRpY2tzLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1KSwNCiAgICBheGlzLnRleHQueSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUsIGhqdXN0ID0gMSksDQogICAgYXhpcy50aXRsZS54ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNSksDQogICAgYXhpcy50aXRsZS55ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNSksDQogICAgcGxvdC50aXRsZSA9IGVsZW1lbnRfYmxhbmsoKSkNCmZpZ3M4DQpgYGANCg0KIyMgZmlneCAtIGR1cmF0aW9ucyBvZiB3YXRlcmJvdXJuZSBleHBvc3VyZSANCg0KYGBge3J9DQoNCnBkbyA8LSBwZG8gJT4lIA0KICBmaWx0ZXIoIWlzLm5hKGR1cmF0aW9uKSkgJT4lDQogICMgQ29udmVydCBkdXJhdGlvbiB0byBudW1lcmljIGFuZCBkdXJhdGlvbl91bml0IHRvIGNoYXJhY3RlciANCiAgbXV0YXRlKGR1cmF0aW9uID0gYXMubnVtZXJpYyhkdXJhdGlvbiksDQogICAgICAgICBkdXJhdGlvbl91bml0ID0gYXMuY2hhcmFjdGVyKGR1cmF0aW9uX3VuaXQpLA0KICAgICAgICAgDQogICMgU3RhbmRhcmRpemUgZHVyYXRpb25fdW5pdF9jb25zaXN0ZW50IGJhc2VkIG9uIGRvc2FnZV91bml0IA0KICBkdXJhdGlvbl91bml0X2NvbnNpc3RlbnQgPSBjYXNlX3doZW4oDQogICAgICAgICAgZHVyYXRpb25fdW5pdCA9PSAibWludXRlcyIgfiAiaG91cnMiLA0KICAgICAgICANCiAgICAgICAgICBkdXJhdGlvbl91bml0ID09ICJkYXlzIiB+ICJob3VycyIsDQogICAgICAgICAgZHVyYXRpb25fdW5pdCA9PSAid2Vla3MiIH4gImhvdXJzIiwNCiAgICAgICAgICAgVFJVRSB+IGR1cmF0aW9uX3VuaXQpLA0KICANCiAgIyBDb252ZXJ0IGR1cmF0aW9uIHRvIGhvdXJzIGJhc2VkIG9uIGR1cmF0aW9uX3VuaXQNCiAgDQogIGR1cmF0aW9uX2NvbnZlcnQgPSBjYXNlX3doZW4oDQogICAgZHVyYXRpb25fdW5pdCA9PSAibWludXRlcyIgfiBkdXJhdGlvbiogNjAsDQogICAgZHVyYXRpb25fdW5pdCA9PSAiZGF5cyIgfiBkdXJhdGlvbi8yNCwgDQogICAgZHVyYXRpb25fdW5pdCA9PSAid2Vla3MiIH4gZHVyYXRpb24vMTY4LA0KICAgIFRSVUUgfiBkdXJhdGlvbikpICU+JSANCiAgZmlsdGVyKHJvdXRlID09ICJ3YXRlcmJvdXJuZSIpDQogIA0KDQpmaWd4IDwtIGdncGxvdChwZG8sIGFlcyh4ID0gcm91dGUgLCB5ID0gbG9nKGR1cmF0aW9uKSkpICsgDQogICAgIyBBZGQgYSB2aW9saW4gcGxvdCANCiAgZ2VvbV92aW9saW4oZmlsbCA9ICIjNUY4NUFFIiwgYWxwaGEgPTAuMiwgY29sb3IgPSBOQSwgdHJpbSA9IEZBTFNFKSArDQoNCiAgIyBBZGQgYSBib3hwbG90IA0KICBnZW9tX2JveHBsb3Qod2lkdGggPSAwLjA1LCBmaWxsID0gIndoaXRlIiwgY29sb3IgPSAiIzVGODVBRSIsIG91dGxpZXIuc2hhcGUgPSBOQSkgKw0KDQogICMgQWRkIGppdHRlcmVkIHBvaW50cyANCiAgZ2VvbV9qaXR0ZXIod2lkdGggPSAwLjEsIGhlaWdodCA9IDAuMDUsIGNvbG9yID0gIiM1Rjg1QUUiLCBhbHBoYSA9IDAuOCkgKw0KDQogIA0KICAjIEFkZCBheGlzIGFuZCBwbG90IGxhYmVscw0KICBsYWJzKHggPSAiUm91dGUgIiwgeSA9ICJsb2coZHVyYXRpb24gKGhvdXJzKSkiKSArDQogIA0KICAjIEN1c3RvbWl6ZSBwbG90IHRoZW1lDQogIHRoZW1lX21pbmltYWwoKSArDQogIHRoZW1lKHBhbmVsLmdyaWQubWFqb3IueSA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICBheGlzLmxpbmUueSA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICBheGlzLnRpY2tzLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1KSwNCiAgICBheGlzLnRleHQueSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgIGF4aXMudGl0bGUueCA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgIGF4aXMudGl0bGUueSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgIHBsb3QudGl0bGUgPSBlbGVtZW50X2JsYW5rKCkpDQoNCmZpZ3gNCmBgYA0KDQojIyBmaWdzOSAtIHRvdGFsIGxpZmVzdGFnZSBvZiBleHBvc3VyZSBjb21wbGV0ZWQgYXMgYSBwZXJjZW50YWdlDQpgYGB7cn0NCg0KIyBDYWxjdWxhdGUgdG90YWwgY291bnQgZm9yIGVhY2ggY2F0ZWdvcnkNCnRvdGFsX2NvdW50X2xzZSA8LSBzZCAlPiUgY291bnQobGlmZV9zdGFnZV9leHBvc3VyZSkNCg0KIyBDYWxjdWxhdGUgcHJvcG9ydGlvbiBhbmQgcGVyY2VudGFnZSBmb3IgZWFjaCBjYXRlZ29yeQ0KbGlmZV9zdGFnZV9wY3QgPC0gc2QgJT4lDQogICAgc2VwYXJhdGVfcm93cyhsaWZlX3N0YWdlX2V4cG9zdXJlLCBzZXAgPSAiLFxccyoiKSAlPiUgDQogIGNvdW50KGxpZmVfc3RhZ2VfZXhwb3N1cmUpICU+JQ0KICBtdXRhdGUocHJvcG9ydGlvbiA9IG4vc3VtKHRvdGFsX2NvdW50X2xzZSRuKSwNCiAgICAgICAgIHBlcmNlbnRhZ2UgPSBwcm9wb3J0aW9uKjEwMCkNCg0KICMgQ3JlYXRlIGEgYmFyIGNoYXJ0IHdpdGggdGhlIGNvdW50IG9uIHRoZSB4LWF4aXMgYW5kIGxpZmUgc3RhZ2Ugb2YgZXhwb3N1cmUgIG9uIHRoZSB5LWF4aXMNCmZpZ3M5IDwtIGdncGxvdChsaWZlX3N0YWdlX3BjdCwgYWVzKHggPSByZW9yZGVyKGxpZmVfc3RhZ2VfZXhwb3N1cmUsIHBlcmNlbnRhZ2UpLCB5ID0gcGVyY2VudGFnZSkpICsNCiAgDQogICMgQ3VzdG9taXplIHRoZSBhcHBlYXJhbmNlIG9mIHRoZSBiYXJzIA0KICAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIsIGZpbGwgPSAiIzVGODVBRSIsIGNvbG9yID0gIndoaXRlIiwgYWxwaGEgPSAwLjgsIHBvc2l0aW9uID0gcG9zaXRpb25fZG9kZ2UoMC45KSkgKw0KICANCiAgIyBBZGQgbGFiZWxzIHRvIHRoZSBiYXJzIGZvciBwZXJjZW50YWdlIA0KICBnZW9tX3RleHQoYWVzKGxhYmVsID0gcGFzdGUwKHJvdW5kKHBlcmNlbnRhZ2UsIDEpLCAiJSIpKSwgaGp1c3QgPSAtMC4yLCB2anVzdCA9IDAuNSwgc2l6ZSA9IDUsIGZvbnRmYWNlID0gImJvbGQiKSArDQogIA0KICAgIyBBZGQgYWJzb2x1dGUgY291bnQgdG8gYmFycw0KICBnZW9tX3RleHQoYWVzKGxhYmVsID0gbiksIHBvc2l0aW9uID0gcG9zaXRpb25fc3RhY2sodmp1c3QgPSAwLjUpLCBjb2xvciA9ICJ3aGl0ZSIsIGZvbnRmYWNlID0gImJvbGQiLCBzaXplID0gNSkgKw0KICANCiAgIyBBZGQgYXhpcyBhbmQgcGxvdCBsYWJlbHMgDQogIGxhYnMoIHggPSAiTGlmZSBTdGFnZSBvZiBFeHBvc3VyZSIsIHkgPSAiUGVyY2VudGFnZSIsIGZvbnRzaXplID0gMTQpICsNCiAgDQogICMgQ3VzdG9taXplIHRoZSBwbG90IHRoZW1lIA0KICB0aGVtZV9taW5pbWFsKCkgKw0KICB0aGVtZShwYW5lbC5ncmlkLm1ham9yLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgYXhpcy5saW5lLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgYXhpcy50aWNrcy55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgIGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNSksDQogICAgYXhpcy50ZXh0LnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1LCBoanVzdCA9IDEpLA0KICAgIGF4aXMudGl0bGUueCA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgIGF4aXMudGl0bGUueSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgIHBsb3QudGl0bGUgPSBlbGVtZW50X2JsYW5rKCkpICsNCiAgY29vcmRfZmxpcCgpICsgDQogIHlsaW0oMCwgMTAwKQ0KDQpmaWdzOQ0KYGBgDQoNCiMjIGZpZ3MxMCAtIHRvdGFsIGxpZmVzdGFnZSBvZiBiZWhhdmlvdXIgY29tcGxldGVkIGFzIGEgcGVyY2VudGFnZQ0KYGBge3J9DQojIENhbGN1bGF0ZSB0b3RhbCBjb3VudCBmb3IgZWFjaCBjYXRlZ29yeQ0KdG90YWxfY291bnRfbHNiIDwtIHNkICU+JSBjb3VudChsaWZlX3N0YWdlX2JlaGF2aW91cikNCg0KIyBDYWxjdWxhdGUgcHJvcG9ydGlvbiBhbmQgcGVyY2VudGFnZSBmb3IgZWFjaCBjYXRlZ29yeQ0KbGlmZV9zdGFnZV9wY3QgPC0gc2QgJT4lDQogIHNlcGFyYXRlX3Jvd3MobGlmZV9zdGFnZV9iZWhhdmlvdXIsIHNlcCA9ICIsXFxzKiIpICU+JSANCiAgY291bnQobGlmZV9zdGFnZV9iZWhhdmlvdXIpICU+JQ0KICBtdXRhdGUoIHByb3BvcnRpb24gPSBuIC8gc3VtKHRvdGFsX2NvdW50X2xzYiRuKSwNCiAgICBwZXJjZW50YWdlID0gcHJvcG9ydGlvbiAqIDEwMCkNCg0KIyBDcmVhdGUgYSBiYXIgY2hhcnQgd2l0aCB0aGUgY291bnQgb24gdGhlIHgtYXhpcyBhbmQgbGlmZSBzdGFnZSBvZiBiZWhhdmlvciBvbiB0aGUgeS1heGlzDQpmaWdzMTAgPC0gZ2dwbG90KGxpZmVfc3RhZ2VfcGN0LCBhZXMoeCA9IHJlb3JkZXIobGlmZV9zdGFnZV9iZWhhdmlvdXIsIHBlcmNlbnRhZ2UpLCB5ID0gcGVyY2VudGFnZSkpICsNCiAgDQogICMgQ3VzdG9taXplIHRoZSBhcHBlYXJhbmNlIG9mIHRoZSBiYXJzIA0KICBnZW9tX2JhcihzdGF0ID0gImlkZW50aXR5IiwgZmlsbCA9ICIjNUY4NUFFIiwgY29sb3IgPSAid2hpdGUiLCBhbHBoYSA9IDAuOCxwb3NpdGlvbiA9IHBvc2l0aW9uX2RvZGdlKDAuOSkpICsNCiAgDQogICMgQWRkIGxhYmVscyB0byB0aGUgYmFycyBmb3IgcGVyY2VudGFnZSANCiAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IHBhc3RlMChyb3VuZChwZXJjZW50YWdlLCAxKSwgIiUiKSksIGhqdXN0ID0gLTAuMiwgdmp1c3QgPSAwLjUsIHNpemUgPSA1LCBmb250ZmFjZSA9ICJib2xkIikgKw0KICANCiAgIyBBZGQgYWJzb2x1dGUgY291bnQgdG8gYmFycw0KICBnZW9tX3RleHQoYWVzKGxhYmVsID0gbiksIHBvc2l0aW9uID0gcG9zaXRpb25fc3RhY2sodmp1c3QgPSAwLjUpLCBjb2xvciA9ICJ3aGl0ZSIsZm9udGZhY2UgPSAiYm9sZCIsIHNpemUgPSA1KSArDQogIA0KICAjIEFkZCBheGlzIGFuZCBwbG90IGxhYmVscyANCiAgbGFicyh4ID0gIkxpZmUgU3RhZ2Ugb2YgQmVoYXZpb3IiLCB5ID0gIlBlcmNlbnRhZ2UiLCBmb250c2l6ZSA9IDE0KSArDQogIA0KICAjIEN1c3RvbWl6ZSB0aGUgcGxvdCB0aGVtZSANCiAgdGhlbWVfbWluaW1hbCgpICsNCiAgdGhlbWUocGFuZWwuZ3JpZC5tYWpvci55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgIGF4aXMubGluZS55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgIGF4aXMudGlja3MueSA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgIGF4aXMudGV4dC55ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNSwgaGp1c3QgPSAxKSwNCiAgICBheGlzLnRpdGxlLnggPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1KSwNCiAgICBheGlzLnRpdGxlLnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1KSwNCiAgICBwbG90LnRpdGxlID0gZWxlbWVudF9ibGFuaygpKSArDQogIGNvb3JkX2ZsaXAoKSArIA0KICB5bGltKDAsIDEwMCkNCg0KZmlnczEwDQoNCmBgYA0KDQojIyBmaWdzMTEgIC0gdG90YWwgc2V4ZXMgZXhwb3NlZCBjb21wbGV0ZWQgYXMgYSBwZXJjZW50YWdlDQpgYGB7cn0NCiMgQ2FsY3VsYXRlIHRvdGFsIGNvdW50IGZvciBlYWNoIGNhdGVnb3J5DQp0b3RhbF9zZXhfY291bnQgPC0gc2QgJT4lIGNvdW50KHNleCkNCg0KIyBDYWxjdWxhdGUgcHJvcG9ydGlvbiBhbmQgcGVyY2VudGFnZSBmb3IgZWFjaCBjYXRlZ29yeQ0Kc2V4X3BjdCA8LSBzZCAlPiUNCiAgY291bnQoc2V4KSAlPiUNCiAgbXV0YXRlKHByb3BvcnRpb24gPSBuL3N1bSh0b3RhbF9zZXhfY291bnQkbiksDQogICAgICAgICBwZXJjZW50YWdlID0gcHJvcG9ydGlvbioxMDApDQoNCiMgQ3JlYXRlIGEgYmFyIGNoYXJ0IHdpdGggdGhlIGNvdW50ICBvbiB0aGUgeC1heGlzIGFuZCBiZWhhdmlvcnVhbCBjbGFzcyBvbiB0aGUgeS1heGlzDQpmaWdzMTEgPC0gZ2dwbG90KHNleF9wY3QsIGFlcyh4ID0gcmVvcmRlcihzZXgsIHBlcmNlbnRhZ2UpLCB5ID0gcGVyY2VudGFnZSkpICsNCiAgDQogICMgQ3VzdG9taXplIHRoZSBhcHBlYXJhbmNlIG9mIHRoZSBiYXJzIA0KICBnZW9tX2JhcihzdGF0ID0gImlkZW50aXR5IiwgZmlsbCA9ICIjNUY4NUFFIiwgY29sb3IgPSAid2hpdGUiLCBhbHBoYSA9IDAuOCwgcG9zaXRpb24gPSBwb3NpdGlvbl9kb2RnZSgwLjkpKSArDQogIA0KICAjIEFkZCBsYWJlbHMgdG8gdGhlIGJhcnMgZm9yIHBlcmNlbnRhZ2UgDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSBwYXN0ZTAocm91bmQocGVyY2VudGFnZSwgMSksICIlIikpLCBoanVzdCA9IC0wLjIsIHZqdXN0ID0gMC41LCBzaXplID0gNSwgZm9udGZhY2UgPSAiYm9sZCIpICsNCiAgDQogICMgQWRkIGFic29sdXRlIGNvdW50IHRvIGJhcnMNCiAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IG4pLCBwb3NpdGlvbiA9IHBvc2l0aW9uX3N0YWNrKHZqdXN0ID0gMC41KSwgY29sb3IgPSAid2hpdGUiLCBmb250ZmFjZSA9ICJib2xkIiwgc2l6ZSA9IDUpICsNCiAgDQogICMgQWRkIGF4aXMgYW5kIHBsb3QgbGFiZWxzIA0KICBsYWJzKHggPSAiU2V4IG9mIEV4cG9zdXJlIiwgeSA9ICJQZXJjZW50YWdlIikgKw0KICANCiAgIyBDdXN0b21pemUgdGhlIHBsb3QgdGhlbWUgDQogICB0aGVtZV9taW5pbWFsKCkgKw0KICB0aGVtZShwYW5lbC5ncmlkLm1ham9yLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgYXhpcy5saW5lLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgYXhpcy50aWNrcy55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgIGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNSksDQogICAgYXhpcy50ZXh0LnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1LCBoanVzdCA9IDEpLA0KICAgIGF4aXMudGl0bGUueCA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgIGF4aXMudGl0bGUueSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgIHBsb3QudGl0bGUgPSBlbGVtZW50X2JsYW5rKCkpICsNCiAgY29vcmRfZmxpcCgpICsgDQogIHlsaW0oMCwgMTAwKQ0KDQpmaWdzMTENCmBgYA0KDQoNCiMgT2JqZWN0aXZlIDMuCVRvIGlkZW50aWZ5IHRoZSBzcGVjaWZpYyBiZWhhdmlvdXJzIHRoYXQgaGF2ZSBiZWVuIGludmVzdGlnYXRlZCBpbiBwZXN0aWNpZGUgZXhwb3N1cmUgZXhwZXJpbWVudHMgdGhhdCB1c2UgemVicmFmaXNoIGFzIGEgbW9kZWwuDQoNCiMjIGZpZzUgLSB0b3RhbCBudW1iZXIgb2Ygc3R1ZGllcyBpbnZlc3RpZ2F0aW5nIGVhY2ggYnJvYWQgYmVoYXZpb3VyIGNsYXNzDQpgYGB7cn0NCg0KIyBDYWxjdWxhdGUgdG90YWwgY291bnQgZm9yIGVhY2ggY2F0ZWdvcnkNCnRvdGFsX2JlaGF2aW91cl9jbGFzc19jb3VudCA8LSBiZCAlPiUgDQogIHNlcGFyYXRlX3Jvd3MoYmVoYXZpb3VyYWxfY2xhc3MsIHNlcCA9ICIsXFxzKiIpICU+JSAgDQogIGNvdW50KGJlaGF2aW91cmFsX2NsYXNzKQ0KDQojIENhbGN1bGF0ZSBwcm9wb3J0aW9uIGFuZCBwZXJjZW50YWdlIGZvciBlYWNoIGNhdGVnb3J5DQpiZWhhdl9jbGFzc19wY3QgPC0gdG90YWxfYmVoYXZpb3VyX2NsYXNzX2NvdW50ICU+JQ0KICBtdXRhdGUocHJvcG9ydGlvbiA9IG4vc3VtKHRvdGFsX2JlaGF2aW91cl9jbGFzc19jb3VudCRuKSwNCiAgICAgICAgIHBlcmNlbnRhZ2UgPSBwcm9wb3J0aW9uKjEwMCkNCg0KIyBDcmVhdGUgYSBiYXIgY2hhcnQgd2l0aCB0aGUgY291bnQgb24gdGhlIHgtYXhpcyBhbmQgQmVoYXZpb3VyYWwgY2xhc3MgIGFzc2F5IG9uIHRoZSB5LWF4aXMNCiBmaWc1IDwtICBnZ3Bsb3QoYmVoYXZfY2xhc3NfcGN0LCBhZXMoeCA9IHJlb3JkZXIoYmVoYXZpb3VyYWxfY2xhc3MsIHBlcmNlbnRhZ2UpLCB5ID0gcGVyY2VudGFnZSkpICsNCiAgICANCiAgIyBDdXN0b21pemUgdGhlIGFwcGVhcmFuY2Ugb2YgdGhlIGJhcnMgDQogIGdlb21fYmFyKHN0YXQgPSAiaWRlbnRpdHkiLCBmaWxsID0gIiM1Rjg1QUUiLCBjb2xvciA9ICJ3aGl0ZSIsIGFscGhhID0gMC44LCBwb3NpdGlvbiA9IHBvc2l0aW9uX2RvZGdlKDAuOSkpICsNCiAgICANCiAgIyBBZGQgbGFiZWxzIHRvIHRoZSBiYXJzIGZvciBwZXJjZW50YWdlIA0KICBnZW9tX3RleHQoYWVzKGxhYmVsID0gcGFzdGUwKHJvdW5kKHBlcmNlbnRhZ2UsIDEpLCAiJSIpKSwgaGp1c3QgPSAtMC4yLCB2anVzdCA9IDAuNSwgc2l6ZSA9IDUsIGZvbnRmYWNlID0gImJvbGQiLCBjb2xvciA9ICJibGFjayIpICsNCiAgICANCiAgIyBBZGQgbGFiZWxzIHRvIHRoZSBiYXJzIGZvciBhYnNvbHV0ZSBjb3VudCAgDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSBuKSwgcG9zaXRpb24gPSBwb3NpdGlvbl9zdGFjayh2anVzdCA9IDAuNSksIGNvbG9yID0gIndoaXRlIiwgc2l6ZSA9IDUsIGhqdXN0ID0gMC41LCBmb250ZmFjZSA9ICJib2xkIikgKw0KICAgIA0KICAjIEFkZCBheGlzIGFuZCBwbG90IGxhYmVscw0KICBsYWJzKHggPSAiQmVoYXZpb3VyYWwgQ2xhc3MiLCB5ID0gIlBlcmNlbnRhZ2UiKSArDQogICAgDQogICMgQ3VzdG9taXplIHRoZSBwbG90IHRoZW1lIA0KICB0aGVtZV9taW5pbWFsKCkgKw0KICB0aGVtZShwYW5lbC5ncmlkLm1ham9yLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgYXhpcy5saW5lLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgYXhpcy50aWNrcy55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgIGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNSksDQogICAgYXhpcy50ZXh0LnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1LCBoanVzdCA9IDEpLA0KICAgIGF4aXMudGl0bGUueCA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgIGF4aXMudGl0bGUueSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgIHBsb3QudGl0bGUgPSBlbGVtZW50X2JsYW5rKCkpICsNCiAgIGNvb3JkX2ZsaXAoKSArIA0KICAgeWxpbSgwLCA1MCkNCiAgDQogIA0KZmlnNQ0KYGBgDQoNCg0KIyMgZmlnczEyIC0gdG90YWwgbnVtYmVyIG9mIHN0dWRpZXMgaW52ZXN0aWdhdGluZyBlYWNoIGJlaGF2aW91cmFsIGFzc2F5IG9mIGJlaGF2aW91ciBhY3Rpdml0eQ0KYGBge3J9DQojIENhbGN1bGF0ZSBjb3VudCBmb3IgZWFjaCBhc3NheSBpbiBiZWhhdmlvcmFsIGFjdGl2aXR5IA0KdG90YWxfYmVoYXZpb3VyX2FjdGl2aXR5X2NvdW50IDwtIGJkICU+JSANCiAgc2VwYXJhdGVfcm93cyhiZWhhdmlvdXJfYWN0aXZpdHksIHNlcCA9ICIsXFxzKiIpICU+JSAgDQogIGNvdW50KGJlaGF2aW91cl9hY3Rpdml0eSkgJT4lIA0KICBuYS5vbWl0KCkNCg0KIyBDYWxjdWxhdGUgcHJvcG9ydGlvbiBhbmQgcGVyY2VudGFnZSBmb3IgZWFjaCBjYXRlZ29yeQ0KYmVoYXZfYWN0aXZpdHlfcGN0IDwtIHRvdGFsX2JlaGF2aW91cl9hY3Rpdml0eV9jb3VudCAlPiUNCiAgbXV0YXRlKHByb3BvcnRpb24gPSBuL3N1bSh0b3RhbF9iZWhhdmlvdXJfYWN0aXZpdHlfY291bnQkbiksDQogICAgICAgICBwZXJjZW50YWdlID0gcHJvcG9ydGlvbioxMDApDQoNCiMgQ3JlYXRlIGEgYmFyIGNoYXJ0IHdpdGggdGhlIGNvdW50IG9uIHRoZSB4LWF4aXMgYW5kIEJlaGF2aW91cmFsIGFjdGl2aXR5IGFzc2F5IG9uIHRoZSB5LWF4aXMNCmZpZ3MxMiA8LSAgZ2dwbG90KGJlaGF2X2FjdGl2aXR5X3BjdCwgYWVzKHggPSByZW9yZGVyKGJlaGF2aW91cl9hY3Rpdml0eSwgbiksIHkgPSBwZXJjZW50YWdlKSkgKw0KICANCiAgIyBDdXN0b21pemUgdGhlIGFwcGVhcmFuY2Ugb2YgdGhlIGJhcnMgDQogIGdlb21fYmFyKHN0YXQgPSAiaWRlbnRpdHkiLCBmaWxsID0gIiM1Rjg1QUUiLCBjb2xvciA9ICJ3aGl0ZSIsIGFscGhhID0gMC44LCBwb3NpdGlvbiA9IHBvc2l0aW9uX2RvZGdlKDAuOSkpICsNCiAgDQogIyBBZGQgbGFiZWxzIHRvIHRoZSBiYXJzIGZvciBwZXJjZW50YWdlIA0KICBnZW9tX3RleHQoYWVzKGxhYmVsID0gcGFzdGUwKHJvdW5kKHBlcmNlbnRhZ2UsIDEpLCAiJSIpKSwgaGp1c3QgPSAtMC4yLCB2anVzdCA9IDAuNSwgc2l6ZSA9IDUsIGZvbnRmYWNlID0gImJvbGQiLCAgICAgY29sb3IgPSAiYmxhY2siKSArDQogICAgDQogICMgQWRkIGxhYmVscyB0byB0aGUgYmFycyBmb3IgYWJzb2x1dGUgY291bnQgIA0KICBnZW9tX3RleHQoYWVzKGxhYmVsID0gbiksIHBvc2l0aW9uID0gcG9zaXRpb25fc3RhY2sodmp1c3QgPSAwLjUpLCBjb2xvciA9ICJ3aGl0ZSIsIHNpemUgPSA1LCBoanVzdCA9IDAuNSwgZm9udGZhY2UgPSAgICJib2xkIikgKw0KICANCiAgIyBBZGQgYXhpcyBhbmQgcGxvdCBsYWJlbHMNCiAgbGFicyh4ID0gIkFjdGl2aXR5IEFzc2F5IiwgeSA9ICJQZXJjZW50YWdlIikgKw0KICANCiAgIyBDdXN0b21pemUgdGhlIHBsb3QgdGhlbWUNCiAgdGhlbWVfbWluaW1hbCgpICsNCiAgdGhlbWUocGFuZWwuZ3JpZC5tYWpvci55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgIGF4aXMubGluZS55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgIGF4aXMudGlja3MueSA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgIGF4aXMudGV4dC55ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNSwgaGp1c3QgPSAxKSwNCiAgICBheGlzLnRpdGxlLnggPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1KSwNCiAgICBheGlzLnRpdGxlLnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1KSwNCiAgICBwbG90LnRpdGxlID0gZWxlbWVudF9ibGFuaygpKSArDQogICAgY29vcmRfZmxpcCgpICsNCiAgeWxpbSgwLCAxMDApDQoNCmZpZ3MxMg0KYGBgDQoNCiMjIGZpZ3MxMyAtIHRvdGFsIG51bWJlciBvZiBzdHVkaWVzIGludmVzdGlnYXRpbmcgZWFjaCBiZWhhdmlvdXJhbCBhc3NheSBvZiBiZWhhdmlvdXJfYWdncmVzc2lvbg0KYGBge3J9DQojIENhbGN1bGF0ZSBjb3VudCBmb3IgZWFjaCBhc3NheSBpbiBhZ2dyZXNzaW9uIGJlaGF2aW9yDQp0b3RhbF9iZWhhdmlvdXJfYWdncmVzc2lvbl9jb3VudCA8LSBiZCAlPiUgDQogIHNlcGFyYXRlX3Jvd3MoYmVoYXZpb3VyX2FnZ3Jlc3Npb24sIHNlcCA9ICIsXFxzKiIpICU+JSAgDQogIGNvdW50KGJlaGF2aW91cl9hZ2dyZXNzaW9uKSAlPiUgDQogIG5hLm9taXQoKQ0KDQojIENhbGN1bGF0ZSBwcm9wb3J0aW9uIGFuZCBwZXJjZW50YWdlIGZvciBlYWNoIGNhdGVnb3J5DQpiZWhhdl9hZ2dyZXNzaW9uX3BjdCA8LSB0b3RhbF9iZWhhdmlvdXJfYWdncmVzc2lvbl9jb3VudCAlPiUNCiAgbXV0YXRlKHByb3BvcnRpb24gPSBuL3N1bSh0b3RhbF9iZWhhdmlvdXJfYWdncmVzc2lvbl9jb3VudCRuKSwNCiAgICAgICAgIHBlcmNlbnRhZ2UgPSBwcm9wb3J0aW9uKjEwMCkNCg0KIyBDcmVhdGUgYSBiYXIgY2hhcnQgd2l0aCB0aGUgY291bnQgb24gdGhlIHgtYXhpcyBhbmQgYWdncmVzc2lvbiBiZWhhdmlvciBhc3NheSBvbiB0aGUgeS1heGlzDQpmaWdzMTMgPC0gIGdncGxvdChiZWhhdl9hZ2dyZXNzaW9uX3BjdCwgYWVzKHggPSByZW9yZGVyKGJlaGF2aW91cl9hZ2dyZXNzaW9uLCBuKSwgeSA9IHBlcmNlbnRhZ2UpKSArDQogIA0KICAjIEN1c3RvbWl6ZSB0aGUgYXBwZWFyYW5jZSBvZiB0aGUgYmFycyANCiAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIsIGZpbGwgPSAiIzVGODVBRSIsIGNvbG9yID0gIndoaXRlIiwgYWxwaGEgPSAwLjgsIHBvc2l0aW9uID0gcG9zaXRpb25fZG9kZ2UoMC45KSkgKw0KICANCiAjIEFkZCBsYWJlbHMgdG8gdGhlIGJhcnMgZm9yIHBlcmNlbnRhZ2UgDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSBwYXN0ZTAocm91bmQocGVyY2VudGFnZSwgMSksICIlIikpLCBoanVzdCA9IC0wLjIsIHZqdXN0ID0gMC41LCBzaXplID0gNSwgZm9udGZhY2UgPSAiYm9sZCIsICAgICBjb2xvciA9ICJibGFjayIpICsNCiAgICANCiAgIyBBZGQgbGFiZWxzIHRvIHRoZSBiYXJzIGZvciBhYnNvbHV0ZSBjb3VudCAgDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSBuKSwgcG9zaXRpb24gPSBwb3NpdGlvbl9zdGFjayh2anVzdCA9IDAuNSksIGNvbG9yID0gIndoaXRlIiwgc2l6ZSA9IDUsIGhqdXN0ID0gMC41LCBmb250ZmFjZSA9ICAgImJvbGQiKSArDQogIA0KICAjIEFkZCBheGlzIGFuZCBwbG90IGxhYmVscw0KICBsYWJzKHggPSAiQWdncmVzc2lvbiBCZWhhdmlvciBBc3NheSIsIHkgPSAiUGVyY2VudGFnZSIpICsNCiAgDQogICMgQ3VzdG9taXplIHRoZSBwbG90IHRoZW1lDQogIHRoZW1lX21pbmltYWwoKSArDQogIHRoZW1lKHBhbmVsLmdyaWQubWFqb3IueSA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICBheGlzLmxpbmUueSA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICBheGlzLnRpY2tzLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1KSwNCiAgICBheGlzLnRleHQueSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUsIGhqdXN0ID0gMSksDQogICAgYXhpcy50aXRsZS54ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNSksDQogICAgYXhpcy50aXRsZS55ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNSksDQogICAgcGxvdC50aXRsZSA9IGVsZW1lbnRfYmxhbmsoKSkgKw0KICAgIGNvb3JkX2ZsaXAoKSArDQogIHlsaW0oMCwgMTIwKQ0KDQpmaWdzMTMNCg0KYGBgDQoNCiMjIGZpZ3MxNCAtIHRvdGFsIG51bWJlciBvZiBzdHVkaWVzIGludmVzdGlnYXRpbmcgZWFjaCBiZWhhdmlvdXJhbCBhc3NheSBvZiBiZWhhdmlvdXJhbF9zb2NpYWxpdHkNCmBgYHtyfQ0KIyBDYWxjdWxhdGUgY291bnQgZm9yIGVhY2ggYXNzYXkgaW4gc29jaWFsIGJlaGF2aW9yDQp0b3RhbF9iZWhhdmlvdXJfc29jaWFsaXR5X2NvdW50IDwtIGJkICU+JSANCiAgc2VwYXJhdGVfcm93cyhiZWhhdmlvdXJfc29jaWFsaXR5LCBzZXAgPSAiLFxccyoiKSAlPiUgIA0KICBjb3VudChiZWhhdmlvdXJfc29jaWFsaXR5KSAlPiUgDQogIG5hLm9taXQoKQ0KDQojIENhbGN1bGF0ZSBwcm9wb3J0aW9uIGFuZCBwZXJjZW50YWdlIGZvciBlYWNoIGNhdGVnb3J5DQpiZWhhdl9zb2NpYWxpdHlfcGN0IDwtIHRvdGFsX2JlaGF2aW91cl9zb2NpYWxpdHlfY291bnQgJT4lDQogIG11dGF0ZShwcm9wb3J0aW9uID0gbi9zdW0odG90YWxfYmVoYXZpb3VyX3NvY2lhbGl0eV9jb3VudCRuKSwNCiAgICAgICAgIHBlcmNlbnRhZ2UgPSBwcm9wb3J0aW9uKjEwMCkNCg0KIyBDcmVhdGUgYSBiYXIgY2hhcnQgd2l0aCB0aGUgY291bnQgb24gdGhlIHgtYXhpcyBhbmQgc29jaWFsIGJlaGF2aW9yIGFzc2F5IG9uIHRoZSB5LWF4aXMNCmZpZ3MxNCA8LSAgZ2dwbG90KGJlaGF2X3NvY2lhbGl0eV9wY3QsIGFlcyh4ID0gcmVvcmRlcihiZWhhdmlvdXJfc29jaWFsaXR5LCBuKSwgeSA9IHBlcmNlbnRhZ2UpKSArDQogIA0KICAjIEN1c3RvbWl6ZSB0aGUgYXBwZWFyYW5jZSBvZiB0aGUgYmFycyANCiAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIsIGZpbGwgPSAiIzVGODVBRSIsIGNvbG9yID0gIndoaXRlIiwgYWxwaGEgPSAwLjgsIHBvc2l0aW9uID0gcG9zaXRpb25fZG9kZ2UoMC45KSkgKw0KICANCiAjIEFkZCBsYWJlbHMgdG8gdGhlIGJhcnMgZm9yIHBlcmNlbnRhZ2UgDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSBwYXN0ZTAocm91bmQocGVyY2VudGFnZSwgMSksICIlIikpLCBoanVzdCA9IC0wLjIsIHZqdXN0ID0gMC41LCBzaXplID0gNSwgZm9udGZhY2UgPSAiYm9sZCIsICAgICBjb2xvciA9ICJibGFjayIpICsNCiAgICANCiAgIyBBZGQgbGFiZWxzIHRvIHRoZSBiYXJzIGZvciBhYnNvbHV0ZSBjb3VudCAgDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSBuKSwgcG9zaXRpb24gPSBwb3NpdGlvbl9zdGFjayh2anVzdCA9IDAuNSksIGNvbG9yID0gIndoaXRlIiwgc2l6ZSA9IDUsIGhqdXN0ID0gMC41LCBmb250ZmFjZSA9ICAgImJvbGQiKSArDQogIA0KICAjIEFkZCBheGlzIGFuZCBwbG90IGxhYmVscw0KICBsYWJzKHggPSAiU29jaWFsIEJlaGF2aW9yIEFzc2F5IiwgeSA9ICJQZXJjZW50YWdlIikgKw0KICANCiAgIyBDdXN0b21pemUgdGhlIHBsb3QgdGhlbWUNCiAgdGhlbWVfbWluaW1hbCgpICsNCiAgdGhlbWUocGFuZWwuZ3JpZC5tYWpvci55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgIGF4aXMubGluZS55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgIGF4aXMudGlja3MueSA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgIGF4aXMudGV4dC55ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNSwgaGp1c3QgPSAxKSwNCiAgICBheGlzLnRpdGxlLnggPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1KSwNCiAgICBheGlzLnRpdGxlLnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1KSwNCiAgICBwbG90LnRpdGxlID0gZWxlbWVudF9ibGFuaygpKSArDQogICAgY29vcmRfZmxpcCgpICsNCiAgICB5bGltKDAsIDEwMCkNCg0KZmlnczE0DQoNCmBgYA0KDQojIyBmaWdzMTUgLSB0b3RhbCBudW1iZXIgb2Ygc3R1ZGllcyBpbnZlc3RpZ2F0aW5nIGVhY2ggYmVoYXZpb3VyYWwgYXNzYXkgb2YgYmVoYXZpb3VyYWxfZm9yYWdpbmcNCmBgYHtyfQ0KIyBDYWxjdWxhdGUgY291bnQgZm9yIGVhY2ggYXNzYXkgaW4gZm9yYWdpbmcgYmVoYXZpb3INCnRvdGFsX2JlaGF2aW91cl9mb3JhZ2luZ19jb3VudCA8LSBiZCAlPiUgDQogIHNlcGFyYXRlX3Jvd3MoYmVoYXZpb3VyX2ZvcmFnaW5nLCBzZXAgPSAiLFxccyoiKSAlPiUgIA0KICBjb3VudChiZWhhdmlvdXJfZm9yYWdpbmcpICU+JSANCiAgbmEub21pdCgpDQoNCiMgQ2FsY3VsYXRlIHByb3BvcnRpb24gYW5kIHBlcmNlbnRhZ2UgZm9yIGVhY2ggY2F0ZWdvcnkNCmJlaGF2X2ZvcmFnaW5nX3BjdCA8LSB0b3RhbF9iZWhhdmlvdXJfZm9yYWdpbmdfY291bnQgJT4lDQogIG11dGF0ZShwcm9wb3J0aW9uID0gbi9zdW0odG90YWxfYmVoYXZpb3VyX2ZvcmFnaW5nX2NvdW50JG4pLA0KICAgICAgICAgcGVyY2VudGFnZSA9IHByb3BvcnRpb24qMTAwKQ0KDQojIENyZWF0ZSBhIGJhciBjaGFydCB3aXRoIHRoZSBjb3VudCBvbiB0aGUgeC1heGlzIGFuZCBmb3JhZ2luZyBiZWhhdmlvciBhc3NheSBvbiB0aGUgeS1heGlzDQpmaWdzMTUgPC0gIGdncGxvdChiZWhhdl9mb3JhZ2luZ19wY3QsIGFlcyh4ID0gcmVvcmRlcihiZWhhdmlvdXJfZm9yYWdpbmcsIG4pLCB5ID0gcGVyY2VudGFnZSkpICsNCiAgDQogICMgQ3VzdG9taXplIHRoZSBhcHBlYXJhbmNlIG9mIHRoZSBiYXJzIA0KICBnZW9tX2JhcihzdGF0ID0gImlkZW50aXR5IiwgZmlsbCA9ICIjNUY4NUFFIiwgY29sb3IgPSAid2hpdGUiLCBhbHBoYSA9IDAuOCwgcG9zaXRpb24gPSBwb3NpdGlvbl9kb2RnZSgwLjkpKSArDQogIA0KICMgQWRkIGxhYmVscyB0byB0aGUgYmFycyBmb3IgcGVyY2VudGFnZSANCiAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IHBhc3RlMChyb3VuZChwZXJjZW50YWdlLCAxKSwgIiUiKSksIGhqdXN0ID0gLTAuMiwgdmp1c3QgPSAwLjUsIHNpemUgPSA1LCBmb250ZmFjZSA9ICJib2xkIiwgICAgIGNvbG9yID0gImJsYWNrIikgKw0KICAgIA0KICAjIEFkZCBsYWJlbHMgdG8gdGhlIGJhcnMgZm9yIGFic29sdXRlIGNvdW50ICANCiAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IG4pLCBwb3NpdGlvbiA9IHBvc2l0aW9uX3N0YWNrKHZqdXN0ID0gMC41KSwgY29sb3IgPSAid2hpdGUiLCBzaXplID0gNSwgaGp1c3QgPSAwLjUsIGZvbnRmYWNlID0gICAiYm9sZCIpICsNCiAgDQogICMgQWRkIGF4aXMgYW5kIHBsb3QgbGFiZWxzDQogIGxhYnMoeCA9ICJGb3JhZ2luZyBCZWhhdmlvciBBc3NheSIsIHkgPSAiUGVyY2VudGFnZSIpICsNCiAgDQogICMgQ3VzdG9taXplIHRoZSBwbG90IHRoZW1lDQogIHRoZW1lX21pbmltYWwoKSArDQogIHRoZW1lKHBhbmVsLmdyaWQubWFqb3IueSA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICBheGlzLmxpbmUueSA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICBheGlzLnRpY2tzLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1KSwNCiAgICBheGlzLnRleHQueSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUsIGhqdXN0ID0gMSksDQogICAgYXhpcy50aXRsZS54ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNSksDQogICAgYXhpcy50aXRsZS55ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNSksDQogICAgcGxvdC50aXRsZSA9IGVsZW1lbnRfYmxhbmsoKSkgKw0KICAgIGNvb3JkX2ZsaXAoKSArDQogICAgeWxpbSgwLCAxMDApDQoNCmZpZ3MxNQ0KDQpgYGANCg0KIyMgZmlnczE2IC0gdG90YWwgbnVtYmVyIG9mIHN0dWRpZXMgaW52ZXN0aWdhdGluZyBlYWNoIGJlaGF2aW91cmFsIGFzc2F5IG9mIGFudGktcHJlZGF0b3IgYmVoYXZpb3VyDQpgYGB7cn0NCiMgQ2FsY3VsYXRlIGNvdW50IGZvciBlYWNoIGFzc2F5IGluIGFudGlwcmVkYXRvciBiZWhhdmlvcg0KdG90YWxfYmVoYXZpb3VyX2FudGlwcmVkYXRvcl9jb3VudCA8LSBiZCAlPiUgDQogIHNlcGFyYXRlX3Jvd3MoYmVoYXZpb3VyX2FudGlwcmVkYXRvciwgc2VwID0gIixcXHMqIikgJT4lICANCiAgY291bnQoYmVoYXZpb3VyX2FudGlwcmVkYXRvcikgJT4lIA0KICBuYS5vbWl0KCkNCg0KIyBDYWxjdWxhdGUgcHJvcG9ydGlvbiBhbmQgcGVyY2VudGFnZSBmb3IgZWFjaCBjYXRlZ29yeQ0KYmVoYXZfYW50aXByZWRhdG9yX3BjdCA8LSB0b3RhbF9iZWhhdmlvdXJfYW50aXByZWRhdG9yX2NvdW50ICU+JQ0KICBtdXRhdGUocHJvcG9ydGlvbiA9IG4vc3VtKHRvdGFsX2JlaGF2aW91cl9hbnRpcHJlZGF0b3JfY291bnQkbiksDQogICAgICAgICBwZXJjZW50YWdlID0gcHJvcG9ydGlvbioxMDApDQoNCiMgQ3JlYXRlIGEgYmFyIGNoYXJ0IHdpdGggdGhlIGNvdW50IG9uIHRoZSB4LWF4aXMgYW5kIGFudGlwcmVkYXRvciBiZWhhdmlvciBhc3NheSBvbiB0aGUgeS1heGlzDQpmaWdzMTYgPC0gZ2dwbG90KGJlaGF2X2FudGlwcmVkYXRvcl9wY3QsIGFlcyh4ID0gcmVvcmRlcihiZWhhdmlvdXJfYW50aXByZWRhdG9yLCBuKSwgeSA9IHBlcmNlbnRhZ2UpKSArDQogIA0KICAjIEN1c3RvbWl6ZSB0aGUgYXBwZWFyYW5jZSBvZiB0aGUgYmFycyANCiAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIsIGZpbGwgPSAiIzVGODVBRSIsIGNvbG9yID0gIndoaXRlIiwgYWxwaGEgPSAwLjgsIHBvc2l0aW9uID0gcG9zaXRpb25fZG9kZ2UoMC45KSkgKw0KICANCiAgIyBBZGQgbGFiZWxzIHRvIHRoZSBiYXJzIGZvciBwZXJjZW50YWdlIA0KICBnZW9tX3RleHQoYWVzKGxhYmVsID0gcGFzdGUwKHJvdW5kKHBlcmNlbnRhZ2UsIDEpLCAiJSIpKSwgaGp1c3QgPSAtMC4yLCB2anVzdCA9IDAuNSwgc2l6ZSA9IDUsIGZvbnRmYWNlID0gImJvbGQiLCBjb2xvciA9ICJibGFjayIpICsNCiAgICANCiAgIyBBZGQgbGFiZWxzIHRvIHRoZSBiYXJzIGZvciBhYnNvbHV0ZSBjb3VudCAgDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSBuKSwgcG9zaXRpb24gPSBwb3NpdGlvbl9zdGFjayh2anVzdCA9IDAuNSksIGNvbG9yID0gIndoaXRlIiwgc2l6ZSA9IDUsIGhqdXN0ID0gMC41LCBmb250ZmFjZSA9ICJib2xkIikgKw0KICANCiAgIyBBZGQgYXhpcyBhbmQgcGxvdCBsYWJlbHMNCiAgbGFicyh4ID0gIkFudGlwcmVkYXRvciBCZWhhdmlvciBBc3NheSIsIHkgPSAiUGVyY2VudGFnZSIpICsNCiAgDQogICMgQ3VzdG9taXplIHRoZSBwbG90IHRoZW1lDQogIHRoZW1lX21pbmltYWwoKSArDQogIHRoZW1lKHBhbmVsLmdyaWQubWFqb3IueSA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICAgICAgYXhpcy5saW5lLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgICAgIGF4aXMudGlja3MueSA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICAgICAgYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1KSwNCiAgICAgICAgYXhpcy50ZXh0LnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1LCBoanVzdCA9IDEpLA0KICAgICAgICBheGlzLnRpdGxlLnggPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1KSwNCiAgICAgICAgYXhpcy50aXRsZS55ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNSksDQogICAgICAgIHBsb3QudGl0bGUgPSBlbGVtZW50X2JsYW5rKCkpICsNCiAgY29vcmRfZmxpcCgpICsNCiAgeWxpbSgwLCAxMDApDQoNCmZpZ3MxNg0KDQpgYGANCg0KIyMgZmlnczE3IC0gdG90YWwgbnVtYmVyIG9mIHN0dWRpZXMgaW52ZXN0aWdhdGluZyBlYWNoIGJlaGF2aW91cmFsIGFzc2F5IG9mIEFueGlldHkgb3IgQm9sZG5lc3MgYmVoYXZpb3VyDQpgYGB7cn0NCiMgQ2FsY3VsYXRlIGNvdW50IGZvciBlYWNoIGFzc2F5IGluIGFueGlldHkgYmVoYXZpb3INCnRvdGFsX2JlaGF2aW91cl9hbnhpZXR5X2NvdW50IDwtIGJkICU+JSANCiAgc2VwYXJhdGVfcm93cyhiZWhhdmlvdXJfYW54aWV0eSwgc2VwID0gIixcXHMqIikgJT4lICANCiAgY291bnQoYmVoYXZpb3VyX2FueGlldHkpICU+JSANCiAgbmEub21pdCgpDQoNCiMgQ2FsY3VsYXRlIHByb3BvcnRpb24gYW5kIHBlcmNlbnRhZ2UgZm9yIGVhY2ggY2F0ZWdvcnkNCmJlaGF2X2FueGlldHlfcGN0IDwtIHRvdGFsX2JlaGF2aW91cl9hbnhpZXR5X2NvdW50ICU+JQ0KICBtdXRhdGUocHJvcG9ydGlvbiA9IG4vc3VtKHRvdGFsX2JlaGF2aW91cl9hbnhpZXR5X2NvdW50JG4pLA0KICAgICAgICAgcGVyY2VudGFnZSA9IHByb3BvcnRpb24qMTAwKQ0KDQojIENyZWF0ZSBhIGJhciBjaGFydCB3aXRoIHRoZSBjb3VudCBvbiB0aGUgeC1heGlzIGFuZCBhbnhpZXR5IGJlaGF2aW9yIGFzc2F5IG9uIHRoZSB5LWF4aXMNCmZpZ3MxNyA8LSBnZ3Bsb3QoYmVoYXZfYW54aWV0eV9wY3QsIGFlcyh4ID0gcmVvcmRlcihiZWhhdmlvdXJfYW54aWV0eSwgbiksIHkgPSBwZXJjZW50YWdlKSkgKw0KICANCiAgIyBDdXN0b21pemUgdGhlIGFwcGVhcmFuY2Ugb2YgdGhlIGJhcnMgDQogIGdlb21fYmFyKHN0YXQgPSAiaWRlbnRpdHkiLCBmaWxsID0gIiM1Rjg1QUUiLCBjb2xvciA9ICJ3aGl0ZSIsIGFscGhhID0gMC44LCBwb3NpdGlvbiA9IHBvc2l0aW9uX2RvZGdlKDAuOSkpICsNCiAgDQogICMgQWRkIGxhYmVscyB0byB0aGUgYmFycyBmb3IgcGVyY2VudGFnZSANCiAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IHBhc3RlMChyb3VuZChwZXJjZW50YWdlLCAxKSwgIiUiKSksIGhqdXN0ID0gLTAuMiwgdmp1c3QgPSAwLjUsIHNpemUgPSA1LCBmb250ZmFjZSA9ICJib2xkIiwgY29sb3IgPSAiYmxhY2siKSArDQogICAgDQogICMgQWRkIGxhYmVscyB0byB0aGUgYmFycyBmb3IgYWJzb2x1dGUgY291bnQgIA0KICBnZW9tX3RleHQoYWVzKGxhYmVsID0gbiksIHBvc2l0aW9uID0gcG9zaXRpb25fc3RhY2sodmp1c3QgPSAwLjUpLCBjb2xvciA9ICJ3aGl0ZSIsIHNpemUgPSA1LCBoanVzdCA9IDAuNSwgZm9udGZhY2UgPSAiYm9sZCIpICsNCiAgDQogICMgQWRkIGF4aXMgYW5kIHBsb3QgbGFiZWxzDQogIGxhYnMoeCA9ICJBbnhpZXR5IEJlaGF2aW9yIEFzc2F5IiwgeSA9ICJQZXJjZW50YWdlIikgKw0KICANCiAgIyBDdXN0b21pemUgdGhlIHBsb3QgdGhlbWUNCiAgdGhlbWVfbWluaW1hbCgpICsNCiAgdGhlbWUocGFuZWwuZ3JpZC5tYWpvci55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgICAgICBheGlzLmxpbmUueSA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICAgICAgYXhpcy50aWNrcy55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgICAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgICAgICBheGlzLnRleHQueSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUsIGhqdXN0ID0gMSksDQogICAgICAgIGF4aXMudGl0bGUueCA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgICAgICBheGlzLnRpdGxlLnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1KSwNCiAgICAgICAgcGxvdC50aXRsZSA9IGVsZW1lbnRfYmxhbmsoKSkgKw0KICAgICAgICBjb29yZF9mbGlwKCkgKw0KICAgICAgICB5bGltKDAsIDgwKQ0KDQpmaWdzMTcNCg0KYGBgDQoNCg0KIyMgZmlnczE4IC0gaGVhdCBtYXAgdG8gc2hvdyB3aGljaCBiZWhhdm91cnMgaGF2ZSBiZWVuIGludmVzdGlnYXRlZCBpbiB3aGljaCBwZXN0aWNpZGUgdGFyZ2V0IGNsYXNzDQpgYGB7cn0NCiMgSm9pbiB0aGUgYmVoYXZpb3VyIGRldGFpbHMgYW5kIHBlc3RpY2lkZSBkZXRhaWxzIGJ5ICJzdHVkeV9pZCINCmJkX3BkIDwtIGxlZnRfam9pbihiZCwgcGQsIGJ5ID0gInN0dWR5X2lkIikNCg0KIyBTZXBhcmF0ZSByb3dzIGluICJiZF9wZCIgYnkgImJlaGF2aW91cmFsX2NsYXNzIiBhbmQgInBlc3RpY2lkZV90YXJnZXRfY2xhc3MiIGNvbHVtbnMNCmJkX3BkMSA8LSBzZXBhcmF0ZV9yb3dzKGJkX3BkLCBiZWhhdmlvdXJhbF9jbGFzcywgc2VwID0gIixcXHMqIiwgY29udmVydCA9IFRSVUUpDQpiZF9wZDE8LSBzZXBhcmF0ZV9yb3dzKGJkX3BkMSwgcGVzdGljaWRlX3RhcmdldF9jbGFzcywgc2VwID0gIixcXHMqIiwgY29udmVydCA9IFRSVUUpDQoNCiMgR3JvdXAgYnkgImJlaGF2aW91cmFsX2NsYXNzIiBhbmQgInBlc3RpY2lkZV90YXJnZXRfY2xhc3MiIGFuZCBzdW1tYXJpemUgY291bnQNCmJkX3BkX3N1bW1hcnkxIDwtIGJkX3BkMSAlPiUNCiAgbXV0YXRlKGJlaGF2aW91cmFsX2NsYXNzID0gc3RyX3RyaW0oYmVoYXZpb3VyYWxfY2xhc3MpLA0KICAgICAgICAgcGVzdGljaWRlX3RhcmdldF9jbGFzcyA9IHN0cl90cmltKHBlc3RpY2lkZV90YXJnZXRfY2xhc3MpKSAlPiUNCiAgZ3JvdXBfYnkoYmVoYXZpb3VyYWxfY2xhc3MsIHBlc3RpY2lkZV90YXJnZXRfY2xhc3MpICU+JQ0KICBzdW1tYXJpc2UoY291bnQgPSBuKCkpICU+JQ0KICB1bmdyb3VwKCkgDQoNCiMgQ3JlYXRlIGEgaGVhdG1hcCB3aXRoIHBlc3RpY2lkZSB0YXJnZXQgY2xhc3Mgb24gdGhlIHgtYXhpcyBhbmQgYmVoYXZpb3VyYWwgY2xhc3Mgb24gdGhlIHktYXhpcw0KZmlnczE4IDwtIGdncGxvdChiZF9wZF9zdW1tYXJ5MSwgYWVzKHggPSBwZXN0aWNpZGVfdGFyZ2V0X2NsYXNzLCB5ID0gYmVoYXZpb3VyYWxfY2xhc3MsIGZpbGwgPSBjb3VudCkpICsNCiAgDQogICNDcmVhdGUgYW5kIGZpbGwgZWFjaCB0aWxlIA0KICBnZW9tX3RpbGUoY29sb3IgPSAid2hpdGUiKSArDQogIHNjYWxlX2ZpbGxfZ3JhZGllbnQobG93ID0gIiNGMEY0RjgiLCBoaWdoID0gIiM0NDY0ODciKSArDQogIA0KICAjIEFkZCBsYWJlbHMgdG8gdGhlIGJhcnMgZm9yIGFic29sdXRlIGNvdW50ICANCiAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IGNvdW50KSwgY29sb3IgPSAiYmxhY2siLCBzaXplID0gNCkgKyANCiAgDQogICMgQWRkIGF4aXMgYW5kIHBsb3QgbGFiZWxzDQogIGxhYnMoeCA9ICJQZXN0aWNpZGUgVGFyZ2V0IENsYXNzIiwgeSA9ICJCZWhhdmlvdXJhbCBDbGFzcyIsIGZpbGwgPSAiQ291bnQiKSArDQogIA0KICAjIEN1c3RvbWl6ZSB0aGUgcGxvdCB0aGVtZQ0KICB0aGVtZV9taW5pbWFsKCkgKw0KICB0aGVtZShwYW5lbC5ncmlkLm1ham9yLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgICAgIGF4aXMubGluZS55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgICAgICBheGlzLnRpY2tzLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgICAgIGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNSksDQogICAgICAgIGF4aXMudGV4dC55ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNSwgaGp1c3QgPSAxKSwNCiAgICAgICAgYXhpcy50aXRsZS54ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNSksDQogICAgICAgIGF4aXMudGl0bGUueSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgICAgICBwbG90LnRpdGxlID0gZWxlbWVudF9ibGFuaygpKQ0KDQoNCmZpZ3MxOA0KYGBgDQoNCiMjIGZpZ3MxOSAtIGhlYXQgbWFwIHRvIHNob3cgd2hpY2ggYmVoYXZvdXJzIGhhdmUgYmVlbiBpbnZlc3RpZ2F0ZWQgaW4gd2hpY2ggcGVzdGljaWRlIGNoZW1pY2FsIGNsYXNzDQpgYGB7cn0NCiMgU2VwYXJhdGUgcm93cyBieSBiZWhhdmlvdXJhbF9jbGFzcyBhbmQgcGVzdGljaWRlX2NoZW1pY2FsX2NsYXNzIGNvbHVtbnMNCmJkX3BkMiA8LSBzZXBhcmF0ZV9yb3dzKGJkX3BkLCBiZWhhdmlvdXJhbF9jbGFzcywgc2VwID0gIixcXHMqIiwgY29udmVydCA9IFRSVUUpDQpiZF9wZDIgPC0gc2VwYXJhdGVfcm93cyhiZF9wZDIsIHBlc3RpY2lkZV9jaGVtaWNhbF9jbGFzcywgc2VwID0gIiwiLCBjb252ZXJ0ID0gVFJVRSkNCg0KIyBHZXQgdGhlIHRvcCAzIG1vc3QgbnVtZXJvdXMgcGVzdGljaWRlIGNoZW1pY2FsIGNsYXNzZXMNCmJkX3BkX3N1bW1hcnkyIDwtIGJkX3BkMiAlPiUNCiAgbXV0YXRlKGJlaGF2aW91cmFsX2NsYXNzID0gc3RyX3RyaW0oYmVoYXZpb3VyYWxfY2xhc3MpLA0KICAgICAgICAgcGVzdGljaWRlX3RhcmdldF9jbGFzcyA9IHN0cl90cmltKHBlc3RpY2lkZV9jaGVtaWNhbF9jbGFzcykpICU+JQ0KICBncm91cF9ieShiZWhhdmlvdXJhbF9jbGFzcywgcGVzdGljaWRlX2NoZW1pY2FsX2NsYXNzKSAlPiUNCiAgc3VtbWFyaXNlKGNvdW50ID0gbigpKSAlPiUNCiAgdW5ncm91cCgpIA0KDQp0b3BfcGVzdGljaWRlX2NsYXNzZXMgPC0gYmRfcGRfc3VtbWFyeTIgJT4lDQogIGZpbHRlcighaXMubmEocGVzdGljaWRlX2NoZW1pY2FsX2NsYXNzKSkgJT4lDQogIGdyb3VwX2J5KHBlc3RpY2lkZV9jaGVtaWNhbF9jbGFzcykgJT4lDQogIHN1bW1hcmlzZShjb3VudCA9IHN1bShjb3VudCkpICU+JQ0KICB1bmdyb3VwKCkgJT4lDQogIHRvcF9uKDMsIGNvdW50KSAlPiUgDQogIHB1bGwocGVzdGljaWRlX2NoZW1pY2FsX2NsYXNzKQ0KDQojIFN1YnNldCB0aGUgZGF0YSB0byBpbmNsdWRlIG9ubHkgdGhlIHRvcCAzIGNsYXNzZXMNCmJkX3BkX3N1bW1hcnlfdG9wMyA8LSBiZF9wZF9zdW1tYXJ5MiAlPiUNCiAgZmlsdGVyKHBlc3RpY2lkZV9jaGVtaWNhbF9jbGFzcyAlaW4lIHRvcF9wZXN0aWNpZGVfY2xhc3NlcykNCg0KIyBDcmVhdGUgYSBoZWF0bWFwIHdpdGggcGVzdGljaWRlIGNoZW1pY2FsIGNsYXNzIG9uIHRoZSB4LWF4aXMgYW5kIGJlaGF2aW9yYWwgY2xhc3Mgb24gdGhlIHktYXhpcw0KZmlnczE5IDwtIGdncGxvdChiZF9wZF9zdW1tYXJ5X3RvcDMsIGFlcyh4ID0gcGVzdGljaWRlX2NoZW1pY2FsX2NsYXNzLCB5ID0gYmVoYXZpb3VyYWxfY2xhc3MsIGZpbGwgPSBjb3VudCkpICsNCiAgDQogICNDcmVhdGUgYW5kIGZpbGwgZWFjaCB0aWxlIA0KICBnZW9tX3RpbGUoY29sb3IgPSAid2hpdGUiKSArDQogIHNjYWxlX2ZpbGxfZ3JhZGllbnQobG93ID0gIiNGMEY0RjgiLCBoaWdoID0gIiM0NDY0ODciKSArDQogIA0KICAjIEFkZCBsYWJlbHMgdG8gdGhlIGJhcnMgZm9yIGFic29sdXRlIGNvdW50IA0KICBnZW9tX3RleHQoYWVzKGxhYmVsID0gaWZlbHNlKGNvdW50ID4gMCwgY291bnQsICIiKSksIGNvbG9yID0gImJsYWNrIiwgc2l6ZSA9IDQpICsgIA0KICANCiAgIyBBZGQgYXhpcyBhbmQgcGxvdCBsYWJlbHMNCiAgbGFicyh4ID0gIlBlc3RpY2lkZSBDaGVtaWNhbCBDbGFzcyIsIHkgPSAiQmVoYXZpb3VyYWwgQ2xhc3MiLCBmaWxsID0gIkNvdW50IikgKw0KICANCiAgIyBDdXN0b21pemUgdGhlIHBsb3QgdGhlbWUNCiAgdGhlbWVfbWluaW1hbCgpICsNCiAgdGhlbWUocGFuZWwuZ3JpZC5tYWpvci55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgIGF4aXMubGluZS55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgIGF4aXMudGlja3MueSA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgIGF4aXMudGV4dC55ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNSwgaGp1c3QgPSAxKSwNCiAgICBheGlzLnRpdGxlLnggPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1KSwNCiAgICBheGlzLnRpdGxlLnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1KSwNCiAgICBwbG90LnRpdGxlID0gZWxlbWVudF9ibGFuaygpKQ0KZmlnczE5DQoNCmBgYA0KDQojIyBmaWdzMjAgLSBoZWF0IG1hcCB0byBzaG93IHdoaWNoIGxpZmUgc3RhZ2VzIG9mIGV4cG9zdXJlIGhhdmUgYmVlbiBleHBvc2VkIHRvIGVhY2ggcGVzdGljaWRlIGNoZW1pY2FsIGNsYXNzDQpgYGB7cn0NCg0KIyBKb2luIHRoZSBzdHlkdCBkZXRhaWxzIHdpdGggcGVzdGljaWRlIGRldGFpbHMgYnkgInN0dWR5X2lkIi4gDQpzZF9wZCA8LSBsZWZ0X2pvaW4oc2QsIHBkLCBieSA9ICJzdHVkeV9pZCIpDQoNCiMgU2VwYXJhdGUgcm93cyBpbiAic2RfcGQiIGJ5ICJsaWZlX3N0YWdlX2V4cG9zdXJlIiBhbmQgInBlc3RpY2lkZV9jaGVtaWNhbF9jbGFzcyIgY29sdW1ucw0Kc2RfcGQxIDwtIHNlcGFyYXRlX3Jvd3Moc2RfcGQsIGxpZmVfc3RhZ2VfZXhwb3N1cmUsIHNlcCA9ICIsIiwgY29udmVydCA9IFRSVUUpDQpzZF9wZDEgPC0gc2VwYXJhdGVfcm93cyhzZF9wZDEsIHBlc3RpY2lkZV9jaGVtaWNhbF9jbGFzcywgc2VwID0gIiwiLCBjb252ZXJ0ID0gVFJVRSkNCg0KIyBHcm91cCBieSAibGlmZV9zdGFnZV9leHBvc3VyZSIgYW5kICJwZXN0aWNpZGVfY2hlbWljYWxfY2xhc3MiIGFuZCBzdW1tYXJpemUgY291bnQNCnNkX3BkX3N1bW1hcnkxIDwtIHNkX3BkMSAlPiUNCiAgbXV0YXRlKGxpZmVfc3RhZ2VfZXhwb3N1cmUgPSBzdHJfdHJpbShsaWZlX3N0YWdlX2V4cG9zdXJlKSwNCiAgICAgICAgIHBlc3RpY2lkZV9jaGVtaWNhbF9jbGFzcyA9IHN0cl90cmltKHBlc3RpY2lkZV9jaGVtaWNhbF9jbGFzcykpICU+JQ0KICBncm91cF9ieShsaWZlX3N0YWdlX2V4cG9zdXJlLCBwZXN0aWNpZGVfY2hlbWljYWxfY2xhc3MpICU+JQ0KICBzdW1tYXJpc2UoY291bnQgPSBuKCkpICU+JQ0KICB1bmdyb3VwKCkNCg0KdG9wX3Blc3RpY2lkZV9jbGFzc2VzIDwtIHNkX3BkX3N1bW1hcnkxICU+JQ0KICBmaWx0ZXIoIWlzLm5hKHBlc3RpY2lkZV9jaGVtaWNhbF9jbGFzcykpICU+JQ0KICBncm91cF9ieShwZXN0aWNpZGVfY2hlbWljYWxfY2xhc3MpICU+JQ0KICBzdW1tYXJpc2UoY291bnQgPSBzdW0oY291bnQpKSAlPiUNCiAgdW5ncm91cCgpICU+JQ0KICB0b3Bfbig0LCBjb3VudCkgJT4lDQogIHB1bGwocGVzdGljaWRlX2NoZW1pY2FsX2NsYXNzKQ0KDQpzZF9wZF9zdW1tYXJ5MV90b3A1IDwtIHNkX3BkX3N1bW1hcnkxICU+JQ0KICBmaWx0ZXIocGVzdGljaWRlX2NoZW1pY2FsX2NsYXNzICVpbiUgdG9wX3Blc3RpY2lkZV9jbGFzc2VzKQ0KDQojIENyZWF0ZSBhIGhlYXRtYXAgd2l0aCBwZXN0aWNpZGUgdGFyZ2V0IGNsYXNzIG9uIHRoZSB4LWF4aXMgYW5kIGJlaGF2aW91cmFsIGNsYXNzIG9uIHRoZSB5LWF4aXMNCmZpZ3MyMCA8LSBnZ3Bsb3Qoc2RfcGRfc3VtbWFyeTFfdG9wNSwgYWVzKHggPSBwZXN0aWNpZGVfY2hlbWljYWxfY2xhc3MsIHkgPSBsaWZlX3N0YWdlX2V4cG9zdXJlLCBmaWxsID0gY291bnQpKSArDQogIA0KICAjQ3JlYXRlIGFuZCBmaWxsIGVhY2ggdGlsZQ0KICBnZW9tX3RpbGUoY29sb3IgPSAid2hpdGUiKSArDQogIHNjYWxlX2ZpbGxfZ3JhZGllbnQobG93ID0gIiNGMEY0RjgiLCBoaWdoID0gIiM0NDY0ODciKSArDQogIA0KICAjIEFkZCBsYWJlbHMgdG8gdGhlIGJhcnMgZm9yIGFic29sdXRlIGNvdW50IA0KICBnZW9tX3RleHQoYWVzKGxhYmVsID0gaWZlbHNlKGNvdW50ID4gMCwgY291bnQsICIiKSksIGNvbG9yID0gImJsYWNrIiwgc2l6ZSA9IDQpICsNCiAgDQogICMgQWRkIGF4aXMgYW5kIHBsb3QgbGFiZWxzDQogIGxhYnMoeCA9ICJQZXN0aWNpZGUgQ2hlbWljYWwgQ2xhc3MiLCB5ID0gIkxpZmUgU3RhZ2UgRXhwb3N1cmUiLCBmaWxsID0gIkNvdW50IikgKw0KICANCiAgIyBDdXN0b21pemUgdGhlIHBsb3QgdGhlbWUNCiAgdGhlbWVfbWluaW1hbCgpICsNCiAgdGhlbWUocGFuZWwuZ3JpZC5tYWpvci55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgIGF4aXMubGluZS55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgIGF4aXMudGlja3MueSA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgIGF4aXMudGV4dC55ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNSwgaGp1c3QgPSAxKSwNCiAgICBheGlzLnRpdGxlLnggPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1KSwNCiAgICBheGlzLnRpdGxlLnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1KSwNCiAgICBwbG90LnRpdGxlID0gZWxlbWVudF9ibGFuaygpKQ0KDQpmaWdzMjANCmBgYA0KDQojIyBmaWdzMjEgLSBoZWF0IG1hcCB0byBzaG93IHdoaWNoIGxpZmUgc3RhZ2VzIG9mIGV4cG9zdXJlIGhhdmUgYmVlbiBleHBvc2VkIHRvIGVhY2ggdGFyZ2V0IGNoZW1pY2FsIGNsYXNzDQpgYGB7cn0NCg0KIyBTZXBhcmF0ZSByb3dzIGJ5IGxpZmVfc3RhZ2VfZXhwb3N1cmUgYW5kIHBlc3RpY2lkZV90YXJnZXRfY2xhc3MgY29sdW1ucw0Kc2RfcGQyIDwtIHNlcGFyYXRlX3Jvd3Moc2RfcGQsIGxpZmVfc3RhZ2VfZXhwb3N1cmUsIHNlcCA9ICIsIiwgY29udmVydCA9IFRSVUUpDQpzZF9wZDIgPC0gc2VwYXJhdGVfcm93cyhzZF9wZDIsIHBlc3RpY2lkZV90YXJnZXRfY2xhc3MsIHNlcCA9ICIsIiwgY29udmVydCA9IFRSVUUpDQoNCiMgR3JvdXAgYnkgImxpZmVfc3RhZ2VfZXhwb3N1cmUiIGFuZCAicGVzdGljaWRlX3RhcmdldF9jbGFzcyIgYW5kIHN1bW1hcml6ZSBjb3VudA0Kc2RfcGRfc3VtbWFyeTIgPC0gc2RfcGQyICU+JQ0KICBtdXRhdGUobGlmZV9zdGFnZV9leHBvc3VyZSA9IHN0cl90cmltKGxpZmVfc3RhZ2VfZXhwb3N1cmUpLA0KICAgICAgICAgcGVzdGljaWRlX3RhcmdldF9jbGFzcyA9IHN0cl90cmltKHBlc3RpY2lkZV90YXJnZXRfY2xhc3MpKSAlPiUNCiAgZ3JvdXBfYnkobGlmZV9zdGFnZV9leHBvc3VyZSwgcGVzdGljaWRlX3RhcmdldF9jbGFzcykgJT4lDQogIHN1bW1hcmlzZShjb3VudCA9IG4oKSkgJT4lDQogIHVuZ3JvdXAoKQ0KDQojIENyZWF0ZSBhIGhlYXRtYXAgd2l0aCBwZXN0aWNpZGUgdGFyZ2V0IGNsYXNzIG9uIHRoZSB4LWF4aXMgYW5kIGxpZmUgc3RhZ2UgZXhwb3N1cmUgb24gdGhlIHktYXhpcw0KZmlnczIxIDwtIGdncGxvdChzZF9wZF9zdW1tYXJ5MiwgYWVzKHggPSBwZXN0aWNpZGVfdGFyZ2V0X2NsYXNzLCB5ID0gbGlmZV9zdGFnZV9leHBvc3VyZSwgZmlsbCA9IGNvdW50KSkgKw0KICANCiAgI0NyZWF0ZSBhbmQgZmlsbCBlYWNoIHRpbGUNCiAgZ2VvbV90aWxlKGNvbG9yID0gIndoaXRlIikgKw0KICBzY2FsZV9maWxsX2dyYWRpZW50KGxvdyA9ICIjRjBGNEY4IiwgaGlnaCA9ICIjNDQ2NDg3IikgKw0KICANCiAgIyBBZGQgbGFiZWxzIHRvIHRoZSBiYXJzIGZvciBhYnNvbHV0ZSBjb3VudCANCiAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IGlmZWxzZShjb3VudCA+IDAsIGNvdW50LCAiIikpLCBjb2xvciA9ICJibGFjayIsIHNpemUgPSA0KSArDQogIA0KICAjIEFkZCBheGlzIGFuZCBwbG90IGxhYmVscw0KICBsYWJzKHggPSAiUGVzdGljaWRlIFRhcmdldCBDbGFzcyIsIHkgPSAiTGlmZSBTdGFnZSBFeHBvc3VyZSIsIGZpbGwgPSAiQ291bnQiKSArDQogIA0KICAjIEN1c3RvbWl6ZSB0aGUgcGxvdCB0aGVtZQ0KICB0aGVtZV9taW5pbWFsKCkgKw0KICB0aGVtZShwYW5lbC5ncmlkLm1ham9yLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgYXhpcy5saW5lLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgYXhpcy50aWNrcy55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgIGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNSksDQogICAgYXhpcy50ZXh0LnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE1LCBoanVzdCA9IDEpLA0KICAgIGF4aXMudGl0bGUueCA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgIGF4aXMudGl0bGUueSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTUpLA0KICAgIHBsb3QudGl0bGUgPSBlbGVtZW50X2JsYW5rKCkpDQpmaWdzMjEgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgDQoNCmBgYA0KDQoNCiMgT2JqZWN0aXZlIDQuIFRvIGV4YW1pbmUgaG93IGFyZSBhdXRob3JzIGNvbm5lY3RlZCBiZXR3ZWVuIGNvdW50cmllcyBhbmQgaG93IGlzIHRoZSBsaXRlcmF0dXJlIGNvbm5lY3RlZCBiZXR3ZWVuIGFuZCB3aXRoaW4gZGlzY2lwbGluZXMuDQoNCiMjIGZpZ3MyNCAtIGdlbmVyYWwgYmlibGlvbWV0cmljIHN1bW1hcmllcw0KYGBge3J9DQojIFBlcmZvcm0gYmlibGlvbWV0cmljIGFuYWx5c2lzIG9uIGRhdGFzZXQgImJpYl9zY28iDQpmaWdzMjQgPC0gYmlibGlvQW5hbHlzaXMoYmliX3NjbykNCg0KIyBEaXNwbGF5IHRoZSBwbG90IG9mIHRoZSBhbmFseXNpcyByZXN1bHRzDQpwbG90KGZpZ3MyNCkNCg0KYGBgDQoNCiMjIGZpZ3MyNyAtIGNvLW9jY3VyYW5jZSBtYXRyaXgNCmBgYHtyfQ0KIyBHZW5lcmF0ZSBhIGJpYmxpb21ldHJpYyBuZXR3b3JrIGJhc2VkIG9uIGNvLW9jY3VycmVuY2VzIG9mIGtleXdvcmRzIGluIHRoZSAiYmliX3NjbyIgZGF0YXNldA0KTmV0TWF0cml4X2tleXdvcmRzIDwtIGJpYmxpb05ldHdvcmsoYmliX3NjbywgYW5hbHlzaXMgPSAiY28tb2NjdXJyZW5jZXMiLCBuZXR3b3JrID0gImtleXdvcmRzIiwgc2VwID0gIjsiKQ0KDQojIFBsb3QgdGhlIG5ldHdvcmsgdXNpbmcgdGhlICJuZXR3b3JrUGxvdCIgZnVuY3Rpb24sIHdpdGggdmFyaW91cyBmb3JtYXR0aW5nIG9wdGlvbnMNCmZpZ3MyNSA8LSBuZXR3b3JrUGxvdChOZXRNYXRyaXhfa2V5d29yZHMsIG5vcm1hbGl6ZT0iYXNzb2NpYXRpb24iLCBuID0gMTAsIA0KICAgICAgICAgICAgICAgICAgICAgVGl0bGUgPSAiS2V5d29yZCBDby1vY2N1cnJlbmNlcyIsIHR5cGUgPSAiZnJ1Y2h0ZXJtYW4iLCANCiAgICAgICAgICAgICAgICAgICAgIHNpemUuY2V4ID0gVFJVRSwgc2l6ZSA9IDEwLCByZW1vdmUubXVsdGlwbGUgPSBGLCANCiAgICAgICAgICAgICAgICAgICAgIGVkZ2VzaXplID0gNCwgbGFiZWxzaXplID0gMywgbGFiZWwuY2V4ID0gVFJVRSwgDQogICAgICAgICAgICAgICAgICAgICBlZGdlcy5taW4gPSAyLCBsYWJlbC5uID0gMTAsIGFscGhhID0gMC4zKQ0KIA0KYGBgDQoNCiMjIGZpZyBzMjYgLSB0aGVtYXRpYyBtYXAgYmFzZWQgb24ga2V5d29yZHMNCmBgYHtyfQ0KIyBTZXQgcGxvdCBwYXJhbWV0ZXJzIHRvIGRpc3BsYXkgYSBzaW5nbGUgcGxvdCB3aXRoIG5hcnJvdyBtYXJnaW5zDQpwYXIobWZyb3c9YygxLDEpLCBtYXI9YygwLDIsMCwyKSkNCg0KIyBHZW5lcmF0ZSBhIHRoZW1hdGljIG1hcCBvZiB0aGUgImJpYl9zY28iIGRhdGFzZXQsIHVzaW5nIHRoZSAiSUQiIGZpZWxkIGFzIHRoZSBiYXNpcyBmb3IgdGhlIG1hcA0KZmlnczI2IDwtIHRoZW1hdGljTWFwKGJpYl9zY28sIGZpZWxkID0gIklEIiwgbiA9IDEwMDAsIG1pbmZyZXEgPSA1LCBzdGVtbWluZyA9IEZBTFNFLCBzaXplID0gMC41LCBuLmxhYmVscyA9IDEsIHJlcGVsID0gVFJVRSkNCg0KIyBEaXNwbGF5IHRoZSByZXN1bHRpbmcgbWFwIHVzaW5nIHRoZSAicGxvdCIgZnVuY3Rpb24NCnBsb3QoZmlnczI2JG1hcCkNCg0KDQpgYGANCg0KIyMgZmlnNiAtIGNvdW50cnkgcHVibGljYXRpb25zIG1hcA0KYGBge3J9DQoNCiMgRXh0cmFjdCBjb3VudHJ5IGluZm9ybWF0aW9uIGZyb20gdGhlICJBVTFfQ08iIGFuZCAiQVVfQ08iIGZpZWxkcyBvZiB0aGUgImJpYl9zY28iIGRhdGFzZXQNCmJpYm1hcCA8LSBtZXRhVGFnRXh0cmFjdGlvbihiaWJfc2NvLCBGaWVsZCA9ICJBVTFfQ08iLCBzZXAgPSAiOyIpIA0KYmlibWFwIDwtIG1ldGFUYWdFeHRyYWN0aW9uKGJpYm1hcCwgRmllbGQgPSAiQVVfQ08iLCBzZXAgPSAiOyIpIA0KDQojIENyZWF0ZSBhIGRhdGEgZnJhbWUgd2l0aCBjb3VudHMgb2YgYXJ0aWNsZXMgZnJvbSBlYWNoIGNvdW50cnkNCmJpYm1hcCAlPiUgDQogIGdyb3VwX2J5KEFVMV9DTykgJT4lIA0KICBjb3VudCgpICU+JSANCiAgZmlsdGVyKCFpcy5uYShBVTFfQ08pKSAtPiBmaXJzdGNvdW50cnljb3VudHMNCg0KIyBMb2FkIHdvcmxkIG1hcCBkYXRhIGFuZCByZW1vdmUgY291bnRyaWVzIHdpdGggbG9uZ2l0dWRlID4xODAgdG8gbWFrZSBhbiBlcXVhbCBwcm9qZWN0aW9uLWxpa2UgbWFwDQp3b3JsZF9tYXAgPC0gbWFwX2RhdGEoIndvcmxkIikgJT4lIA0KICBmaWx0ZXIoISBsb25nID4gMTgwKQ0KDQojIEZvcm1hdCBjb3VudHJ5IG5hbWVzIHRvIG1hdGNoIHJlZ2lvbnMgb24gdGhlIHdvcmxkIG1hcA0KZmlyc3Rjb3VudHJ5Y291bnRzJHJlZ2lvbiA8LSBzdHJfdG9fdGl0bGUoZmlyc3Rjb3VudHJ5Y291bnRzJEFVMV9DTykNCmZpcnN0Y291bnRyeWNvdW50cyRyZWdpb25bZmlyc3Rjb3VudHJ5Y291bnRzJHJlZ2lvbiA9PSAiVXNhIl0gPC0gIlVTQSIgDQpmaXJzdGNvdW50cnljb3VudHMkcmVnaW9uW2ZpcnN0Y291bnRyeWNvdW50cyRyZWdpb24gPT0gIktvcmVhIl0gPC0gIlNvdXRoIEtvcmVhIg0KDQojIEpvaW4gY291bnQgZGF0YSB3aXRoIG1hcCBkYXRhIGFuZCBzZXQgbWlzc2luZyBjb3VudHMgdG8gemVybw0KZW1wdHltYXAgPC0gdGliYmxlKHJlZ2lvbiA9IHVuaXF1ZSh3b3JsZF9tYXAkcmVnaW9uKSwgbiA9IHJlcCgwLGxlbmd0aCh1bmlxdWUod29ybGRfbWFwJHJlZ2lvbikpKSkNCmZ1bGxtYXAgPC0gbGVmdF9qb2luKGVtcHR5bWFwLCBmaXJzdGNvdW50cnljb3VudHMsIGJ5ID0gInJlZ2lvbiIpDQpmdWxsbWFwJG4gPC0gZnVsbG1hcCRuLnggKyBmdWxsbWFwJG4ueQ0KZnVsbG1hcCRuW2lzLm5hKGZ1bGxtYXAkbildIDwtIDANCg0KIyBDcmVhdGUgYSBwbG90IG9mIHRoZSB3b3JsZCBtYXAgd2l0aCByZWdpb25zIGNvbG9yZWQgYmFzZWQgb24gYXJ0aWNsZSBjb3VudHMNCmZpZ3MyNyA8LSBmdWxsbWFwICU+JSANCiAgZ2dwbG90KGFlcyhmaWxsID0gbiwgbWFwX2lkID0gcmVnaW9uKSkgKw0KICBnZW9tX21hcChtYXAgPSB3b3JsZF9tYXApICsNCiAgZXhwYW5kX2xpbWl0cyh4ID0gd29ybGRfbWFwJGxvbmcsIHkgPSB3b3JsZF9tYXAkbGF0KSArDQogIGNvb3JkX21hcCgibW9sbCIpICsgIyBNb2xsd2VpZGUgcHJvamVjdGlvbg0KICB0aGVtZV9tYXAobGluZV9zaXplID0gMC41KSArIA0KICBzY2FsZV9maWxsX2dyYWRpZW50KGxvdyA9ICIjRUNGMjA3IiwgaGlnaCA9ICIjQzMwN0YyIiwgIyBzZXQgY29sb3IgZ3JhZGllbnQNCiAgICAgICAgICAgICAgICAgICAgbmFtZSA9ICJTY29yZSIsIG5hLnZhbHVlID0gImdyYXkiLA0KICAgICAgICAgICAgICAgICAgICBsaW1pdHMgPSBjKDAuMSwgMjQpLA0KICAgICAgICAgICAgICAgICAgICBndWlkZSA9IGd1aWRlX2NvbG9yYmFyKGRpcmVjdGlvbiA9ICJ2ZXJ0aWNhbC4iLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGJhcndpZHRoID0gdW5pdCgxNSwgdW5pdHMgPSAibW0iKSwgDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYmFyaGVpZ2h0ID0gdW5pdCg1MCwgdW5pdHMgPSAibW0iKSkpICsNCiAgZ3VpZGVzKGZpbGwgPSBndWlkZV9jb2xvdXJiYXIoKSkgKw0KICB0aGVtZShwYW5lbC5iYWNrZ3JvdW5kID0gZWxlbWVudF9yZWN0KGZpbGwgPSAidHJhbnNwYXJlbnQiLCBjb2xvdXIgPSBOQSksDQogICAgICAgIHBsb3QuYmFja2dyb3VuZCA9IGVsZW1lbnRfcmVjdChmaWxsID0gInRyYW5zcGFyZW50IiwgY29sb3VyID0gTkEpKQ0KICANCmZpZ3MyNw0KIyBnZ3NhdmUoaGVyZSgiZmlndXJlcyIsICJ3b3JsZF9tYXAucG5nIiksIHdpZHRoID0gMTYsIGhlaWdodCA9IDEwLCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gMzAwKQ0KYGBgDQoNCiMjIGZpZ3MyOCAtIGNvdW50cnkgY29sbGFib3JhdGlvbiBuZXR3b3JrIGNpcmNsZSBwbG90DQpgYGB7cn0NCiMgRXh0cmFjdCBjb3VudHJpZXMgZnJvbSB0aGUgYWZmaWxpYXRpb25zDQpiaWJfc2NvMiA8LSBtZXRhVGFnRXh0cmFjdGlvbihiaWJfc2NvLCBGaWVsZCA9ICJBVV9DTyIsIHNlcCA9ICI7IikNCg0KIyBDcmVhdGUgYSBuZXR3b3JrIG1hdHJpeCBvZiBjb2xsYWJvcmF0aW9ucyBiZXR3ZWVuIGNvdW50cmllcw0KTmV0TWF0cml4X2NvdW50cnkgPC0gYmlibGlvTmV0d29yayhiaWJfc2NvMiwgYW5hbHlzaXMgPSAiY29sbGFib3JhdGlvbiIsIG5ldHdvcmsgPSAiY291bnRyaWVzIiwgc2VwID0gIjsiKQ0KDQojIENvbnZlcnQgdGhlIG5ldHdvcmsgbWF0cml4IHRvIGEgc3RhbmRhcmQgbWF0cml4DQpOZXRNYXRyaXhfY291bnRyeSA8LSBhcy5tYXRyaXgoTmV0TWF0cml4X2NvdW50cnkpDQoNCiMgUmVtb3ZlIHRoZSBsb3dlciB0cmlhbmdsZSAoYXMgdGhpcyBpcyBkdXBsaWNhdGlvbiBvZiBpbmZvKQ0KTmV0TWF0cml4X2NvdW50cnlbbG93ZXIudHJpKE5ldE1hdHJpeF9jb3VudHJ5KV0gPC0gMCANCg0KIyBDaGFuZ2UgY29sdW1uIGFuZCByb3cgbmFtZXMgdG8gdGl0bGUgY2FzZQ0KY29sbmFtZXMoTmV0TWF0cml4X2NvdW50cnkpIDwtIHN0cl90b190aXRsZShjb2xuYW1lcyhOZXRNYXRyaXhfY291bnRyeSkpDQpyb3duYW1lcyhOZXRNYXRyaXhfY291bnRyeSkgPC0gc3RyX3RvX3RpdGxlKHJvd25hbWVzKE5ldE1hdHJpeF9jb3VudHJ5KSkNCg0KIyBDaGFuZ2UgIlVzYSIgdG8gIlVTQSINCmNvbG5hbWVzKE5ldE1hdHJpeF9jb3VudHJ5KVtjb2xuYW1lcyhOZXRNYXRyaXhfY291bnRyeSkgPT0gIlVzYSJdIDwtICJVU0EiDQpyb3duYW1lcyhOZXRNYXRyaXhfY291bnRyeSlbcm93bmFtZXMoTmV0TWF0cml4X2NvdW50cnkpID09ICJVc2EiXSA8LSAiVVNBIg0KDQojIENoYW5nZSAiVW5pdGVkIEtpbmdkb20iIHRvICJVSyIgZm9yIGVhc2llciBwbG90dGluZw0KY29sbmFtZXMoTmV0TWF0cml4X2NvdW50cnkpW2NvbG5hbWVzKE5ldE1hdHJpeF9jb3VudHJ5KSA9PSAiVW5pdGVkIEtpbmdkb20iXSA8LSAiVUsiDQpyb3duYW1lcyhOZXRNYXRyaXhfY291bnRyeSlbcm93bmFtZXMoTmV0TWF0cml4X2NvdW50cnkpID09ICJVbml0ZWQgS2luZ2RvbSJdIDwtICJVSyINCg0KbXkuY29sczIgPC0gYygNCiAgVVNBID0gIiNlNDFhMWMiLA0KICBDYW5hZGEgPSAiIzM3N2ViOCIsDQogIE1leGljbyA9ICIjNGRhZjRhIiwNCiAgQnJhemlsID0gIiM5ODRlYTMiLA0KICBFY3VhZG9yID0gIiNmZjdmMDAiLA0KICBDaGlsZSA9ICIjZmZmZjMzIiwNCiAgUGhpbGlwcGluZXMgPSAiI2E2NTYyOCIsDQogIENoaW5hID0gIiNmNzgxYmYiLA0KICBLb3JlYSA9ICIjZTQxYTFjIiwNCiAgSW5kaWEgPSAiIzk4NGVhMyIsDQogIFR1cmtleSA9ICIjZmY3ZjAwIiwNCiAgUm9tYW5pYSA9ICIjNGRhZjRhIiwNCiAgU3dpdHplcmxhbmQgPSAiIzM3N2ViOCIsDQogIE5vcndheSA9ICIjMWI5ZTc3IiwNCiAgTmV0aGVybGFuZHMgPSAiI2Q5NWYwMiIsDQogIEdlcm1hbnkgPSAiIzc1NzBiMyIsDQogIEZyYW5jZSA9ICIjZTcyOThhIiwNCiAgSXRhbHkgPSAiIzY2YTYxZSIsDQogIFBvcnR1Z2FsID0gIiNlNmFiMDIiLA0KICBTcGFpbiA9ICIjYTY3NjFkIiwNCiAgU3dlZGVuID0gIiM2NjY2NjYiDQopDQoNCiANCg0KIyBDcmVhdGUgYSBjaG9yZCBkaWFncmFtIG9mIHRoZSBuZXR3b3JrIG1hdHJpeA0KZmlnczI4IDwtIGNob3JkRGlhZ3JhbShOZXRNYXRyaXhfY291bnRyeSwgYW5ub3RhdGlvblRyYWNrID0gImdyaWQiLCBwcmVBbGxvY2F0ZVRyYWNrcyA9IDEsIGdyaWQuY29sID0gbXkuY29sczIpDQoNCiMgQWRkIGEgdHJhY2sgdG8gbGFiZWwgZWFjaCBzZWN0b3Igd2l0aCBpdHMgbmFtZQ0KY2lyY29zLnRyYWNrUGxvdFJlZ2lvbih0cmFjay5pbmRleCA9IDEsIHBhbmVsLmZ1biA9IGZ1bmN0aW9uKHgsIHkpIHsNCiAgeGxpbSA9IGdldC5jZWxsLm1ldGEuZGF0YSgieGxpbSIpDQogIHlsaW0gPSBnZXQuY2VsbC5tZXRhLmRhdGEoInlsaW0iKQ0KICBzZWN0b3IubmFtZSA9IGdldC5jZWxsLm1ldGEuZGF0YSgic2VjdG9yLmluZGV4IikNCiAgY2lyY29zLnRleHQobWVhbih4bGltKSwgeWxpbVsxXSArIC4xLCBzZWN0b3IubmFtZSwgZmFjaW5nID0gImNsb2Nrd2lzZSIsIG5pY2VGYWNpbmcgPSBUUlVFLCBhZGogPSBjKDAsIDAuNSkpDQogIGNpcmNvcy5heGlzKGggPSAidG9wIiwgbGFiZWxzLmNleCA9IDAuNSwgbWFqb3IudGljay5sZW5ndGggPSAwLjIsIHNlY3Rvci5pbmRleCA9IHNlY3Rvci5uYW1lLCB0cmFjay5pbmRleCA9IDIpDQp9LCBiZy5ib3JkZXIgPSBOQSkNCg0KYGBgDQoNCiMjIGZpZzZhIGNvbGxhYm9yYXRpb24gbWF0cml4IHdpdGggc2VsZiBjaXRhdGlvbiByZW1vdmVkDQpgYGB7cn0NCiMgTWFraW5nIGRpYWdub2wgemVybyB0byByZW1vdmUgc2VsZiBjaXRhdGlvbnMgDQpkaWFnKE5ldE1hdHJpeF9jb3VudHJ5KSA8LSAwDQoNCiMgQ3JlYXRlIGEgY2hvcmQgZGlhZ3JhbSBvZiB0aGUgbmV0d29yayBtYXRyaXgNCmZpZzZhIDwtIGNob3JkRGlhZ3JhbShOZXRNYXRyaXhfY291bnRyeSwgYW5ub3RhdGlvblRyYWNrID0gImdyaWQiLCBwcmVBbGxvY2F0ZVRyYWNrcyA9IDEsIGdyaWQuY29sID0gbXkuY29sczIpDQoNCiMgQWRkIGEgdHJhY2sgdG8gbGFiZWwgZWFjaCBzZWN0b3Igd2l0aCBpdHMgbmFtZQ0KY2lyY29zLnRyYWNrUGxvdFJlZ2lvbih0cmFjay5pbmRleCA9IDEsIHBhbmVsLmZ1biA9IGZ1bmN0aW9uKHgsIHkpIHsNCiAgeGxpbSA9IGdldC5jZWxsLm1ldGEuZGF0YSgieGxpbSIpDQogIHlsaW0gPSBnZXQuY2VsbC5tZXRhLmRhdGEoInlsaW0iKQ0KICBzZWN0b3IubmFtZSA9IGdldC5jZWxsLm1ldGEuZGF0YSgic2VjdG9yLmluZGV4IikNCiAgY2lyY29zLnRleHQobWVhbih4bGltKSwgeWxpbVsxXSArIC4xLCBzZWN0b3IubmFtZSwgZmFjaW5nID0gImNsb2Nrd2lzZSIsIG5pY2VGYWNpbmcgPSBUUlVFLCBhZGogPSBjKDAsIDAuNSkpDQogIGNpcmNvcy5heGlzKGggPSAidG9wIiwgbGFiZWxzLmNleCA9IDAuNSwgbWFqb3IudGljay5sZW5ndGggPSAwLjIsIHNlY3Rvci5pbmRleCA9IHNlY3Rvci5uYW1lLCB0cmFjay5pbmRleCA9IDIpDQp9LCBiZy5ib3JkZXIgPSBOQSkNCmBgYA0KDQojIyBmaWc2YiBjb250aW5lbnQgY29sbGFib3JhdGlvbiANCmBgYHtyfQ0KTmV0TWF0cml4X2NvbnRpbmVudCA8LSBOZXRNYXRyaXhfY291bnRyeQ0KIyBDaGFuZ2UgIlVzYSIgdG8gIk5vcnRoIEFtZXJpY2EiDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiVVNBIl0gPC0gIk5vcnRoIEFtZXJpY2EiDQpyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiVVNBIl0gPC0gIk5vcnRoIEFtZXJpY2EiDQojIENoYW5nZSAiVXNhIiB0byAiTm9ydGggQW1lcmljYSINCmNvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW2NvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJDYW5hZGEiXSA8LSAiTm9ydGggQW1lcmljYSINCnJvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW3Jvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJDYW5hZGEiXSA8LSAiTm9ydGggQW1lcmljYSINCiMgQ2hhbmdlICJNZXhpY28iIHRvICJOb3J0aCBBbWVyaWNhIg0KY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIk1leGljbyJdIDwtICJOb3J0aCBBbWVyaWNhIg0Kcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIk1leGljbyJdIDwtICJOb3J0aCBBbWVyaWNhIg0KIyBDaGFuZ2UgQ2hpbmEgdG8gQXNpYQ0KY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIkNoaW5hIl0gPC0gIkFzaWEiDQpyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiQ2hpbmEiXSA8LSAiQXNpYSINCiMgQ2hhbmdlIEluZGlhIHRvIEFzaWENCmNvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW2NvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJJbmRpYSJdIDwtICJBc2lhIg0Kcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIkluZGlhIl0gPC0gIkFzaWEiDQojIENoYW5nZSBQaGlsbGlwaW5lcyB0byBBc2lhDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiUGhpbGlwcGluZXMiXSA8LSAiQXNpYSINCnJvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW3Jvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJQaGlsaXBwaW5lcyJdIDwtICJBc2lhIg0KIyBDaGFuZ2UgIkJyYXppbCIgdG8gIlNvdXRoIEFtZXJpY2EiDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiQnJhemlsIl0gPC0gIlNvdXRoIEFtZXJpY2EiDQpyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiQnJhemlsIl0gPC0gIlNvdXRoIEFtZXJpY2EiDQojIENoYW5nZSAiRWN1YWRvciIgdG8gIlNvdXRoIEFtZXJpY2EiDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiRWN1YWRvciJdIDwtICJTb3V0aCBBbWVyaWNhIg0Kcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIkVjdWFkb3IiXSA8LSAiU291dGggQW1lcmljYSINCiMgQ2hhbmdlICJDaGlsZSIgdG8gIlNvdXRoIEFtZXJpY2EiDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiQ2hpbGUiXSA8LSAiU291dGggQW1lcmljYSINCnJvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW3Jvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJDaGlsZSJdIDwtICJTb3V0aCBBbWVyaWNhIg0KIyBDaGFuZ2UgIlVuaXRlZCBLaW5nZG9tIiB0byAiRXVyb3BlIiANCmNvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW2NvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09IlVLIl0gPC0gIkV1cm9wZSINCnJvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW3Jvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09IlVLIl0gPC0gIkV1cm9wZSINCiMgQ2hhbmdlICJSb21hbmlhIiB0byAiRXVyb3BlIg0KY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIlJvbWFuaWEiXSA8LSAiRXVyb3BlIg0Kcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIlJvbWFuaWEiXSA8LSAiRXVyb3BlIg0KIyBDaGFuZ2UgIkdlcm1hbnkiIHRvICJFdXJvcGUiDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiR2VybWFueSJdIDwtICJFdXJvcGUiDQpyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiR2VybWFueSJdIDwtICJFdXJvcGUiDQojQ2hhbmdlICJGcmFuY2UiIHRvICJFdXJvcGUiDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiRnJhbmNlIl0gPC0gIkV1cm9wZSINCnJvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW3Jvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJGcmFuY2UiXSA8LSAiRXVyb3BlIg0KI0NoYW5nZSAiU3BhaW4iIHRvICJFdXJvcGUiDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiU3BhaW4iXSA8LSAiRXVyb3BlIg0Kcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIlNwYWluIl0gPC0gIkV1cm9wZSINCiNDaGFuZ2UgIlBvcnR1Z2FsIiB0byAiRXVyb3BlIg0KY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIlBvcnR1Z2FsIl0gPC0gIkV1cm9wZSINCnJvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW3Jvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJQb3J0dWdhbCJdIDwtICJFdXJvcGUiDQojQ2hhbmdlICJTd2VkZW4iIHRvICJFdXJvcGUiDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiU3dlZGVuIl0gPC0gIkV1cm9wZSINCnJvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW3Jvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJTd2VkZW4iXSA8LSAiRXVyb3BlIg0KI0NoYW5nZSAiSXRhbHkiIHRvICJFdXJvcGUiDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiSXRhbHkiXSA8LSAiRXVyb3BlIg0Kcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIkl0YWx5Il0gPC0gIkV1cm9wZSINCiNDaGFuZ2UgIk5ldGhlcmxhbmRzIiB0byAiRXVyb3BlIg0KY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIk5ldGhlcmxhbmRzIl0gPC0gIkV1cm9wZSINCnJvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW3Jvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJOZXRoZXJsYW5kcyJdIDwtICJFdXJvcGUiDQojQ2hhbmdlICJOb3J3YXkiIHRvICJFdXJvcGUiDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiTm9yd2F5Il0gPC0gIkV1cm9wZSINCnJvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW3Jvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJOb3J3YXkiXSA8LSAiRXVyb3BlIg0KI0NoYW5nZSAiU3dpdHplcmxhbmQiIHRvICJFdXJvcGUiDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiU3dpdHplcmxhbmQiXSA8LSAiRXVyb3BlIg0Kcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIlN3aXR6ZXJsYW5kIl0gPC0gIkV1cm9wZSINCiNDaGFuZ2UgIkN6ZWNoIFJlcHVibGljIiB0byAiRXVyb3BlIg0KY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIkN6ZWNoIFJlcHVibGljIl0gPC0gIkV1cm9wZSINCnJvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW3Jvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJDemVjaCBSZXB1YmxpYyJdIDwtICJFdXJvcGUiDQoNCmNvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW2NvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJLb3JlYSJdIDwtICJBc2lhIg0Kcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIktvcmVhIl0gPC0gIkFzaWEiDQoNCmNvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW2NvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJUdXJrZXkiXSA8LSAiRXVyb3BlIg0Kcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIlR1cmtleSJdIDwtICJFdXJvcGUiDQoNCg0KIyBjb2xsYXBzaW5nDQptZXJnZV9tYXRyaXggPC0gdChyb3dzdW0odChOZXRNYXRyaXhfY29udGluZW50KSwgZ3JvdXAgPSBjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSwgbmEucm0gPSBUKSkNCm1lcmdlX21hdHJpeDIgPC0gcm93c3VtKG1lcmdlX21hdHJpeCwgZ3JvdXAgPSByb3duYW1lcyhtZXJnZV9tYXRyaXgpKQ0KIyByZW1vdmUgZGlhZ29uYWwgZWxlbWVudHMNCmRpYWcobWVyZ2VfbWF0cml4MikgPC0gMA0KIyBjaG9yZCBwbG90DQpjaG9yZERpYWdyYW1Gcm9tTWF0cml4KG1lcmdlX21hdHJpeDIpDQoNCiMgQ3JlYXRlIGEgY2hvcmQgZGlhZ3JhbSBvZiB0aGUgbmV0d29yayBtYXRyaXgNCmZpZzZiIDwtIGNob3JkRGlhZ3JhbShtZXJnZV9tYXRyaXgyLCBhbm5vdGF0aW9uVHJhY2sgPSAiZ3JpZCIsIHByZUFsbG9jYXRlVHJhY2tzID0gMSkNCiMgQWRkIGEgdHJhY2sgdG8gbGFiZWwgZWFjaCBzZWN0b3Igd2l0aCBpdHMgbmFtZQ0KY2lyY29zLnRyYWNrUGxvdFJlZ2lvbih0cmFjay5pbmRleCA9IDEsIHBhbmVsLmZ1biA9IGZ1bmN0aW9uKHgsIHkpIHsNCiAgeGxpbSA9IGdldC5jZWxsLm1ldGEuZGF0YSgieGxpbSIpDQogIHlsaW0gPSBnZXQuY2VsbC5tZXRhLmRhdGEoInlsaW0iKQ0KICBzZWN0b3IubmFtZSA9IGdldC5jZWxsLm1ldGEuZGF0YSgic2VjdG9yLmluZGV4IikNCiAgY2lyY29zLnRleHQobWVhbih4bGltKSwgeWxpbVsxXSArIDAuMiwgc2VjdG9yLm5hbWUsIGZhY2luZyA9ICJjbG9ja3dpc2UiLCBuaWNlRmFjaW5nID0gVFJVRSwgYWRqID0gYygwLCAxKSkNCiAgY2lyY29zLmF4aXMoaCA9ICJ0b3AiLCBsYWJlbHMuY2V4ID0gMC41LCBtYWpvci50aWNrLmxlbmd0aCA9IDAuMiwgc2VjdG9yLmluZGV4ID0gc2VjdG9yLm5hbWUsIHRyYWNrLmluZGV4ID0gMikNCn0sIGJnLmJvcmRlciA9IE5BKQ0KDQoNCmBgYA0K